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fc <tzv./i^- h^-y^UP— r-r 
> ?*£:tf& L ft l^T* h ir £ ftft I \ 
MMLT-fFo/cT-'-^tZ, fc^i:i 

9-T*AJjTZ>£&i.l£^tz?> 

l a Sf:h7A-tz^->a>C(i N 

MiDi-9-?;i/^T-fcfti;*(7)/\*^- 



© 



M-s\os(Di/xri*mm 



I/3-ty >? _; E- K 
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T*£ 'J fc# h . CT-670T220^fe 

^.iz^a^ street, xif- 
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SX-MIDMBASICfcifco!! 

FS-A1GT*(*^, /^PACKlCF«gjRt?nfcMIDIffiSSBASICo MIDI^BASICcT 

n y s p-;^■c€ps*:^r liw w*:3 i^fcfcfto mmiy-t-yy-- v ? s iz:f7*<z>r 



BASIC0PLAYXT 



/ \° V 3 > T'MIDI^S %• P| «b "t 

~^>t-V7 hft*r£1s^>Ti» 
fetCSLTO^ofc, MSX 
-MIDIJ/z^BASICTIi, PLAYXtZ 
d: SMIDIP > h P — ;U^*pTf 6fc* 

<bT$ *lt£\ PLAY5:T'(iT'# ft 

i3&$-?<n*>—/r>-y—vy \-x 

tt*C#fti\ ^-yp^Ai: 

J: 5 n > h □ — ./i/ft fc'fcg^lSft 
So wftliTcXiijBijWftzfcfc 

MSX-MUSICi 
MSX-MIDIiCDlU 

$ Xs ttiX'te *WT*# -5> 9 A 
AtA/J:^ £■** MSX-MIDIT*f£o 
BASIC <7)^%£ x MSX-MUSICt 
COilU fevi» $ /Lft£%»l# L cfc 1 

i"f V* h Hi, MSX-MUSIC 

fc, ^LTU7.h 2£\ ^ft£(S 
raUCtfc-MSX-MIDIWSia 



z&^WiMmix^i,, 

10 CALL MUSIC 

CALL MUSIC (^E- K (0 *M ), 

,^-^>^;UtlJU^T ) 

1(Wt(7)CALL MUSICC24-i:T*£ 

IllUo ZCDfimiX'its BASICtt 
MSX-MIDI£ft? <7)A\ MSX-MUSIC& 
ft-) <7)*«JT*£ ftt\, r ftti *$ 

mmn^-? x u 7-fcu < oft -5 
fr ? "<75 is:^: ft ^ £ it & msx - 

MUSICfc MSX-MIDI b*mt fcoT L 
£ 3 <7)T\ MSX-MUSIC£ MSX-MIDI 
4- WCft "5 <7> 12 *> J: o £ H L I * 

£3 o too 

MSX-MUSICT'te, CALL MUSIC 

(i,o,2 # u)fc*r£3aEr*-£(zj: 

•oT, U-£o<7)MML(^M£:£ 
3aj)£^fc-3kLL<7)$fefc&T* 
C fctft^fc: It £\ MSX-MIDI T 
I2cnt2llllf*ft<ft£ 

MSX-MUSICT'tt,^- K ( U X 
A^fcftffl Lfti**- K)T?B 9 
**T\ -3£U;£^iJ9103-<7)^ 
$•86 *? "f C t tfX' &/-(* £\ MSX- 
MIDIT*feC(7)lB[(il^i; MIDK216 

>^l/T*fi&%-3!S-i:fcA5Lx 
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10 CALL MUSIC (1,0, 1, 1, 1) 

20 CALL VOICE (80. 82, 83) 

30 PLAY #2, M T200V15C2", "T200V15E 

2\ M T200V15G2", , 'T200B8S8M8C8H8 , ' 






» 
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10 CALL MUSIC(1,0, 1, 1, 1) 




20 PLAY #1. M 8H180 M , M 8H282 M , "8H38 




3", "8H15" 






25 CALL MDR (36, 38, 43, 51, 49) 






30 PLAY #1, "T200V15C2 M , "T200V15E 






2", M T200V15G2 M , "T200B8S8M8C8H8 M 



*j£<7)MIDI ^;HT1232^|W)B##£ 
^nltlftA/TWfc^ft < lJftl\0) 
T\ cnT1ifI|^(Z9^ST*L^ 
Rft^ft^Cfct&V^ £#l£ 
U$t*l;+ftlMH £J§k>fcA 

b^Z>£&7tf£' iofc< fc 

^T^<7)£frU 3ti(i*'v>L 
T fc b -5 Lfr*i*j£3 o to, ffcb 
U £ t *oT(2ft^lt £, *- K 
1 ('J XA^ftfflT^- K)T 
(J, MSX-MUSICT'tiFM^ii 6 P+ 

'J XA W L fr®L*.t£ir -yfctf t\ 

MSX-MIDIT'W 8 P+ U XA^^S 
^.•SctolZ^oTl^o C(7)±f^- N 
CALL MUSIC(1, 0,1,1, 1,1,1, 1,0,0) 
£#Ctt£cfc ^oCALLMUSICtiX* 
WCtiCALL MUSIC 1,0,<7)^(73(Bc 
^tf^il-fc MSX-MUSICffl i: #4. -5 
tt£s ^^(7)jmiS(iMSX-MIDIffl 
^#^.•2)0 ft^<73, 0,0?:, 1.1IZ L 
tz&ks MSX-MUSIC(7)^E- K 1 
T- 8 ^(i HJ-B-j! ■£ I n<7)T-x ^ — (z t£ 

20 PLAY #1 

£ T , 2mii±m^to pT.U.4, 
CALL VOICEt2MSX-MUSICffl(7)^ 
^<7)T\ MSX-MIDITIiftffl L^U 
* fc -if fc CALL VOICED It&^Mn 

^ZijCfcTZ^X'. zoy%-& s 

PLAY #2, W, "©2", v "@3"^^ L 
Tfe mtfrn ZtlZX'ZZo tztz\ 
CALL MUSIC (1, 0,2,2,2)4^*^ L 
X, m^c7)FM^S(7)/1-W 7. %m— 
MMLlZ^XX^tzifr&lZ^ ttlh 
<F> 2 PO^Zm-? tz H,0£§8fe 
L tzfr^ tzhZ (DCALL VOICE^^- 
*i&mite^£^tttefr-otz 
MSX-MIDIT'(i, m—MMLZm^l. 

<7)T\ CALL VOICE(Zffi^-r%^^ 



ZZX'liiXZtz *PLAY #1, " ^ t» 
-) O^MSX-MIDKZMML^-^-S^^- 
/c'oMSX-MUSICWPLAY #2,"c7) N # 
2*<#1 (Z ft o ^c ff(t /c ifoTU 
iv„ij^ h 2C7)2(JfT<7\@0£7!r@2 

HiTtZ*>5@H1ftir*<MSX-MIDIT1gf 
L < ititzMML(D-$r$tz Ztlitffi 

<7)s MIDI^-^>^;i/%-ffi^-f%* 

fci^jjlr^fo MiDKzti 1 —165 1 
i ^&x-mmzmm$ ^s z £ # 

T'#-5 fcT, ^fe?r^-MML(7) 

&#wztt tz^^*<7)-c&ntfx 

MIDI^^>^;U$r-o^-oTl^ 

*>ft*tZCCT'(*I>i:o«!)<7)3t 
^IJ^MIDI^^>^;H N UT2, 

15^|^LT*^. 
25 CALL MDR 

y* h 2(7)^(Z(iCALL MDRo 

fc MSX-MIDIT-ff L < iHX # fctfc 
^•/c* U XA^tt x MSX-MUSICT' 
(iB(/N'7 K^A)S (7^7^ K^ 
A)M(^A^A)C (7-f Fv> 

t^l^llftb-ltfctt^ MSX- 
M\D\X'hZtlU^to^X^\ it 

ol'Ji^x: tLTH^MKB M ft 
ftfcvtlv-^ t :^W*o 

ftJft<7)MIDIsSsST-tt, ^^(7)4" 
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0IRtfMIDI*-#- KSrfg^T* 
*U -7* 2 <7) K £ft ■£(£/ <X K 

% - <7) *#■*-*— *U MIDI "CtJ 
V - h *#* £ 1 v-5 MT'St? n 
SA,*flt£\ (X ??-?-(■?■< 
■T7. ) 1 <7) FA< T'^^^'t 1= 1 

£ N U XAffl MML<7) B.S, M,C,H<7) 

<7)l:W i &t" j 5<7)* < -^CALL MDR 
£ I * -9 ^p /io —US B Av \'7. K 7 

A, S^^7K?A fc'tffc 

MSX-MUSICT'(i^o X fc It £\ 
MSX-MIDIT'li^ftl- Z fcffr b 4 

30 PLAY #1 

£T* 'J * M £ V * h 2(7)30 
frTS&b^TUSSKMJx #2A<#1 

cgfr o fe /ft to 2m<nt$mx- h 

#1 » fc (t £\ PLAY #24" b MSX- 
MUSICt^ PLAY #1&bMSX-MIDI 
(ZMML^jSIS^p^CW/^o 

SU£ftA&9ft* 

W±Tfcft»*:l*MSX-MUSICfc 

• CALL MUSICJi^ftZfe, 0!lx.l& 
CALL TRANSPOSE,CALL TEMPER, 
CALL PITCHY £*<7)MSX-MUSICfc 

• MIDIffl MMLtZiiiP $ tltz h <D 

@Cm,n 

MIDI(Z=i> h P— JU^x>v 
^rlii^T^o mtt7*-?A-f h 1 
(a> h p— ;ut->/\'— ) % nii7*— 
?/<?Y h 2T\ m,n£&HM<7) 
|g|S(£ ~127 cnT*t°>yf l '<> 
Kffi&fcat-o k 'J T 5 - 1 *Hft 

@Sn 
MIDI V 7" JU^-T A? P-y?£, 



ffitJnfcfcwtii;, msx- 

MIDI(7)PLAY^:(-<J; £>H#S\ f&ff) 

MtDBfeBtt £*£ Ir!#]£ -frS'J^ A* 

&&Bf(i, »JTJkjM*£BV* 

MSX-MUSIC£ MSX-MIDI(7)^i 
UJfcofc-ftfclto MML<7)## 
T^ft t'U: MSX-MUSICt- Mf 5 * 

■J XA^fec7) y—\-i->y <—% £' 
ti % MIDlCMra3S$K*&*8§<n 

MIDW9BASIG® 

U * V 5 £ U * h 6 (J, &&£ 
•f$oTMIDI£P> h PHUT 

UT h 5^Pf^-vi^l' 

T N UU7U-XASIJ: < (£)& 

fc**C#l < T7°P 7*7 A« 
totbZMt. s-KfcgStLTfc 
It'^iidWl-P >tfa— £— 0*7 
K U 7*>H# L T < ft* J: -5 fc ?°n 

V*> 6tU7 h stmttit 
tz\^tz^mi:ti:A,tztft:\ zhh 
(i U XA £ £ Sd^tZfF^t * 7°P 
^7 A/c'o C -5 %(*f:fA,£AJ£ft 
^■ti-^cA^b^— yi"S J: "9 '~4'-3 
Ti^ 48W?fl«/vy*3R»*J 

XA/ <$—>f£ Z'OW&lZlfrZ. 

*A x fc Lft<ev. x feo 

:iii *0S(i-#- i x-c7) ->—7- 
>+>•— 77 h i;^T*#4 N A^^(t 
^* s Z'9l^7°P7* ; 7A^-^r3fc 

J: -5 i'i t A*T-# T:f 4 a>t" 

a-7 - <b L U^I'7c 1 11-5 o 




10 CLEAR 1| 

20 _MUSIC(0, 0. 1 

30 A=RND(-TIME) 

40 DIM L (15) , L$ (15) 

50 PLAY #1, "@h1@0T150" 

60 FOR 1=0 TO 15:READ L$ (I) -.NEXT I 

70 FOR 1=0 TO 15:L(I)=INT(RND(1)*2) :NEXT I 

100 ' >Dt* i fJtl 

110 A$ = '"':J=0:FOR 1 = 1 TO 15 

120 IF L (I) =0 THEN J=J+1 :NEXT I 

130 A$=A$+MID$("CDEFGAB",RND(1)*7 + 1, 1)+L$(J) : J= 

140 IF K16 THEN NEXT I 

150 ' IVV$ 

160 "FOR 1=1 TO 2 

170 PLAY #1.A$ 

180 "NEXT I 

190 END 

200 " *Vf3 9 7*-* 

210 DATA 16, 8. 8. ,4 

220 DATA 4r8. . 4. , 4. . , 2 

230 DATA 16r2, 8r2, 8. r2, 4r2 

240 DATA 4r8. r2, 4. r2, 4. . r2, 1 



<3B> 



10 CLEAR 1000 

20 .MUSIC (1. 0) 

30 _MDR (36, 38, 43, 51, 42) 

40 A=RND(-TIME) 

50 DIM S$ (15). L (15) , L$ (15) 

60 PLAY #1, "6h10t200" 

70 FOR 1=0 TO 15:READ L$ (I) :NEXT I 

80 FOR 1=0 TO 15:S$(I)="b":NEXT I 

90 S$(4)="s":S$(12)="s" 

100 FOR 1=0 TO 15:L(I)=0:NEXT I 

110 L (0) = 1 : L (4) = 1 : L (8) = 1 : L ( 1 0) = 1 : L ( 1 2) = 1 

200 ' ur aa'j-v a<t# 

210 A$="":P=0:J=0:FOR 1=1 TO 15 

220 IF L (I) =0 THEN J=J+1 :NEXT I 

230 A$=A$+S$ (P) +L$ (J) : J=0:P=I 

240 IF K16 THEN NEXT I 

300 ' IW9 

310 'FOR 1=1 TO 2 

320 PLAY «1.A$ 

330 'NEXT I 

400 ' f'-f ^V3 , ) 

410 S$(RND(1)*15)=MID$Cbsmch", RND(1)*5+ 

420 X=RND(1)*14+1:L(X)=1-L(X) 

430 GOTO 200 

500 " *>fa* t*-7 

510 DATA 16, 8, 8. .4 

520 DATA 4r8. , 4. , 4. . , 2 

530 DATA 16r2, 8r2, 8. r2, 4r2 

540 DATA 4r8. r2, 4. r2. 4. . r2, 1 



liSUfc^o tz b(Dtztf t\ Mz 



ti t'tf^n b ft * D * tz z mm 

IZ h BASIC(7)7P y^L.x-UMx 
V.^ i£*mk*Wt>X -5> t JS-5 o 
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f^MIDIi:a>/H 






MSX-MIDIfc^T^J: 7^H 
AtfltflZlJ, MSX-MUSIC£<$-2 

Tte-3TfcAfci^A,i;*ftiv!r 

fto <"5l^A(4> MSX-MUSICffl 
<7)MML(BASIC7'n$'7A)fcl^<-3 

jM$-3TS£,S7(t£\ ?tih<n 

lt"CMSX-MIDIT^x.S<7)ttxKr<7) 
*MSX-MUSIC£ MSX-MIDk7>itl**£- 

*>±-oi:Ltzm*£tei^Tb. 

MSX-MUSICffl[Z#frftfc7°P ?7 
A %• MSX-MIDIffllZ^I" SfcfltT' 
fc*gflW>A,iT< 5Ft^ ?ZX\ ffi 
J&ft3GE-eii&*tf£\ gtbittiz 

'J * h 3 * < -if(7)*MSX-MUSIC-» 
MSX-MIDI BASICyn^'vAn^x 
/\'-?-*C07°P ^7Af;Jf!i 
Ctl^A^LT-tz-7*LTfcC-9 

PVA'-KWtACD 

■S-ftT'li, P >A- h 7°P ?*7 
A<7)£iv£fcifc93L«J:-5o *1\ 
MSX-MUSICffllz#A\h.fc7"n$ r 

7A^ft5„:: T*(i *music. 

BAS* fcC^-5 7°P 7=7h.1) K !h r> tz 

lfZW7°P^7A^/7X^ 
— tz - 7'^it" C -fe - 7* L ft fc t 
'jZ^r'&S (TTiZT 7 ;*.* — tz — 
7'LT & S^M^ft l^)o 
BASICS 

LOAD *MUSIC.BAS* 
T*$-fP-KL, 
SAVE "MUSIC.ASC", A 



T-tz-7'Lct-Po MUSIC.ASC£l* 
•5 7 7"f I^XTT. +— tz— 7*$ 
ftSo 3fe 'J 7. I- 3W7*P^7 
A^H^tT^o TS£, 
-j.7U 3? 77-fJl/ : 

t)ti%><nx\ music.asc£ n tt. 

*— - tz-7*?nfcMSX-MUSICffl 
7*n^vA<7)7 7 , -Ol'££A2rt 
So M^T 
->a7'J 3? 7 7"fJU : 

£HiS<7)T\ zz-C(iS!«|Lfc«g 
Z X'\t MIDI.ASC t X h A 77 L T 

jlLTU<o CALL VOICE^PLAY 
#2£PLAY#1lI»#&a.fcfh 
CALL MDR£i£SqL /::'.), ^fe# 
^■£B#&*.fc»;fc-fSo COM- 
PLETED* £ I * 7 > y iz - v *< tH 

Izbtii&kA^ifco MlDl.ASC^u 

7, T 7 **-- tz — 7*J&5&7)MSX- 
MIDIffl7°P 77AA ? f-f7v7i:^ 
j&£ftTuS£,m7o Zft^Uff 
"ftU£ MSX-MIDKZ J: -5/1111^ 
gkLtoZZMZti:*. 

ZC07°P^7AT*IJ, ^m#-§" 
£^Mf" S (7) IZ M I DflRlRi MT-32 

ts MiD^igtfMT-azsgrcfci* 

tf-^-ti, ^P^A^St— 7* 

;K7) £ c S £ i 7X7)^iffl tz* # 

BL"tt>«bl*fcl*(MSX- MUSIC 

co{il^M^T*i ^T * S tz It ftc7) 
T\ MMiUzCTLT *>*>*.*£© 
7)o */=% ^fe(iMSX-MUSICc7) 
V-o.7 7 ;UJlT'*PIAN0 1?.£fto 
T^Sfe<7){2, MIDI^igftlJT'fe 
*PIANO 1*£ft-?TUS^£#-§- 



run 

MSXP0S2 .SYS C0MMAND2.COM PFMCONV .ASC 
MUSIC .ASC MI I) 1 2 .ASC RND2 . ASC 

RND1 .ASC TULIP .ASC CONVERT .ASC 

NACHT .ASC GAME .ASC 

FM5b^">9 T7^ BASIC7>*D?"7£t» 
MIW^J^ t7^30- SLpg^-Ki^Z* 

ZaO Ma 9 • I? SiUS : MUS I C . ASC 

safl Ua 'J 7? -f JW< : M 1 1> I . ASC 

10 CALL MUSIC <1, 0,1 . 1 . 1> : _MDR<36, 38, 43, 

51 , 42 > : PLAV #1 , fi 3H1 ft , ft 3H2 " , " S)H3 " , " SI^IO & 

20 PLAV #1, "30" . "30", "352", "872" 



0V15G2 " , " T200B8S8M8C8H8 " 
Ok 



It X 

a a 

ft 7 

(C -f 

M ;U 

I x 

D til 

1 a 

m 7 

f 7 

1 -r 

? ;u 

C ^&- 

K» 

mz. 
1 r 
x % 

< /; 

n it 

5 T- 

(7) " 



IZ^TT$)^) tits ftmTZt 
MSX-MUSICT'^PIANO 1"^^* 

^ux^o-ct, H^(z(iffi^ 
t*ro*^-7i:LTU7fciJ L 

7 l^/cfe(7)(i*^^(Z(i¥Ttf 

JELTfc>b7L^d:i^z^7 

ife, CALL MUSIC(7)$>-5^t(Z 
CALL MDRSriiAQTSlSiilZfto 
X^Z><T)tzfi\ CALL MUSIC(7)$) 
•Sff^ 7^7 ^t^TT'fer? fc*i 
•&, iliP L tz$£^fi\ BASIC7°P ^* 
=7 A(7) 1 ^T(7)SAg?rM^T L S 

7 *&/)** So :<^*^(ix7- 

A<UJT^CT*±S%<75T\ fc^O 
7°P 7=7 A(7)^T?T7>lt -5 ft Z L T 
fo 7— ST 7 ^*— tZ-7'L^fcf 
^Z6*^^UftfcLT(iLi^ 
CALL MUSICS CALL VOICED 

jft>ft »J iiiffl^^ < «*f l x s ^fc*^t t\ 

l^cU, *>=t-5^^^o/c«itlZ 

?-tm*khtfx Ltiztbm 



MUSIC<7)7°P <f=7 A 4-15 JEf •& 
ft^LT*W0.LT($Ll^ o 

f tl^fe, CALL TRANSPOSE 
i;d\ CALL PITCH ft i:*C7)MSX- 

Musictffl^^-^-^ y^L fc v s 
mftLx m&mm* $ ±t 5 ft ^ 

(*k l^£l^oTftlv7)T\ ^ 
SA** S *&(i ZtiZ tz^Xi^lE 
lX^tztz<Z£{Zt£%tz*>i 

L> < O^MSX-MUSICC7)7°P ^ 
7A^3>a- h LT^-^lt^ 
£UfcV,M7>fc(7>A < z] >/\— h Lfc 
* * T3BlT-# SA^tt 2^ ^ 7 
LTh^tttifrL^tztfr. 'J 
XAlZPSG^rf^-^ TTj^DiSA** 
•Sft^<7)rp^(il^UStHT < S 

■ : e<7)^^fc, ^«y; ^x-fifJEL 

T&^7 L* N ftl^o 
T'fc^ »^Wftg|S7>^Z;c7)P> 

/.V^-* < SteW|EU"fc < ftS<7) 

T\ MSX-MUSIODt'— ^^rMSX- 
MIDIffilzLfcl^AlzfcoTlirfrft 

SftMSX-MOSICT*— flrlCArK 
A,a-V/t-* h LTMIDI^ilT-^ 
U4T*L^:fc^o 
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¥) Welcome to the 

MIDI**" 



Fuwsff-^^Mnmwm : T-'5\z^j^-[^^vu^ : 5b, 



10 " PLAY FM -> MIDI CONVERTER 

20 ' 

30 CLEAR I000:MAXFILES=2 

40 DIM MU (10), ST (63), VO (9) :M=0:V=0 

50 FOR 1=0 TO 63: READ ST (I) :NEXT I 

60 FILES:PRINT 

70 PRINT "FM*vrv5 fy% 8ASIC7' 0*' 7A? " 

80 PRINT "MIDIWV? +7*37- 3yA'-H*3. 

90 PRINT ".BASIC7*or =An 7*$-t-7' y»;?" 

100 PRINT "39* SWtf. " 

110 LINE INPUT "ZifUl IrMl 

120 LINE INPUT *$i99l9 lyihii 

130 OPEN A$ FOR INPUT AS #1 

140 OPEN B$ FOROUTPUT AS #2 

150 IF EOF(l) GOTO 1100 

160 LINE INPUT #1.X$ 

170 A=INSTR(X$. "MUSIC") : IF A 

180 A=INSTR(X$, "VOICE") :IF A 



;A$ 
;B$ 



THEN GOSUB 250 
THEN GOSUB 600 



190 A=INSTR(X$, "#2") :IF A THEN GOSUB 930 

200 1=1 

210 IF MID$(X$, I, 1)="§" THEN GOSUB 1010 

220 IF KLEN(X$) THEN 1 = 1 + 1 : GOTO 210 

230 PRINT X$:PRINT#2. X$ 

240 GOTO 150 

250 ' CALL MUSIC CHECK 

260 B=A 

270 B=B-1:IF B<1 THEN RETURN 

280 IF MID$(X$, B, 1)="_" GOTO 320 

290 IF B-3<1 GOTO 270 

300 IF MID$ (X$, B-3,4)="CALL" GOTO 320 

310 GOTO 270 

320 ' CALL MUSIC ; JMt* 

330 A=A+5:B=A:M=0 

340 IF A>LEN(X$) GOTO 490 

350 C$=MID$(X$. A, I): IF C$ = " " THEN A=A+l:GOTO 340 

360 IF C$=":" GOTO 490 

370 IF C$<>" (" GOTO 590 

380 D$ = "":FOR 1=0 TO 4:MU (I) =1 :NEXT I 

390 A=A+1 

400 IF A>LEN(X$) GOTO 590 

410 C$=MID$(X$, A, 1) :IF C$=" " GOTO 390 

420 IF C$ = ", " GOTO 460 

430 IF C$=") " THEN A=A+1 :GOTO 460 

440 D$=D$+C$ 

450 GOTO 390 

460 IF D$ = "" THEN V=1 ELSE V=VAL (D$) 

470 MU(M)=V:M=M+1:IF M>10 GOTO 590 

480 D$="":IF C$<>") " GOTO 390 

490 IF M<3 THEN M=5 

500 FOR 1=2 TO M- 1 : IF MU (I) <1 GOTO 590 

510 NEXT I 

520 C$=LEFT$(X$,A-1) :D$=RIGHT$ (X$, LEN(X$)-A+1) 

530 E$ = "":IF MU (0) THEN E$ = " :_MDR (36, 38. 43, 51 , 42) " 

540 E$=E$+":PLAY #1" 

550 FOR 1=2 TO M-1 :E$=E$ + ", "+CHR$ (34) +"§H"+CHR$ (47 

+ I)+CHR$(34) :NEXT I 

560 IF MU(0) THEN E$ = E$ + ", "+CHR$ (34) +"§H10"+CHR$ (3 

4) 

570 IF LEN(C$)+LEN(E$)+LEN(D$)>255 THEN BEEP:PRINT 

"3; #' 3-)/\ fh'iniYh)*' +>I-*vt!!":PRINT X$:CLOSE:E 

ND 

580 X$=C$+E$+D$: RETURN 

590 BEEP:PRINT"CALL MUSIC*' 379*7H • • • " :PRINT X$:C 

LOSE: END 

600 ' CALL VOICE CHECK 

610 B=A 



GOTO 920 
GOTO 920 



AND C$<>") " THEN D$=D$+C$ :A=A+1 :GOT 



GOTO 720 



620 B=B-1 : IF B<1 THEN RETURN 

630 IF MID$(X$,B. !)="_" GOTO 670 

640 IF B-3<1 GOTO 620 

650 IF MID$(X$, B-3, 4) ="CALL" THEN B=B-3:GOTO 670 

660 GOTO 620 

670 ' CALL VOICE J *{t* 

680 A=A+5 

690 IF LEN(X$)<A GOTO 920 

700 C$=MID$(X$, A. 1) :IF C$=" " THEN A=A+1 :GOTO 690 

710 IF C$<>" (" GOTO 920 

720 A=A+1 

730 GOSUB 890 

740 IF C$=") 

750 IF C$<>"§" 

760 A=A+1 :D$=" 

770 GOSUB 890 

780 IF C$<>", " 

770 

790 VO (V) =VAL (D$) : V=V+ 1 : IF C$<>' 

800 IF V=0 GOTO 920 

810 C$ = LEFT$ (X$,B-1) : D$=RIGHT$ (X$, LEN (X$) -A) 

820 E$="PLAY #1":J=2 

830 FOR 1=0 TO V-1 

840 E$=E$ + ", "+CHR$ (34) +"§"+MID$ (STR$ (VO (I) ) , 2) +CHR 

$(34) 

850 IF MU(J)>1 THEN I = I+MU(J)-1 

860 J=J+1 : NEXT I 

870 IF LEN(C$)+LEN(E$)+LEN(D$)>255 THEN BEEP: PRINT 

"3/ *' 39A ft)' H'lJV Mf +>h*y7!l":PRINT X$:CLOSE:E 

ND 

880 X$=C$+E$+D$: RETURN 

890 IF LEN(X$)<A GOTO 920 

900 C$=MID$(X$. A. 1) :IF C$=" 

910 RETURN 

920 BEEP:PRINT"CALL VOICE*' 

LOSE: END 

930 ' PLAY #2 CHECK 

940 B=A-3 

950 B=B-1 

960 IF B<1 GOTO 950 

970 IF MID$(X$, B, 4)="PLAY" 

980 IF MID$(X$. B+3, 1)<>" ' 

990 GOTO 950 

1000 MID$ (X$. A) ="#1": RETURN 190 

1010 ' VOICE CHANGE 

1020 A=I+1 :E$="" 

1030 C$=MID$ (X$. A. 1) 

1040 IF C$<"0" OR C$>"9" THEN IF E$=' 

ELSE 1060 
1050 E$=E$+C$:A=A+1:GOTO 1030 
1060 C$=LEFT$ (X$, I) :D$=RIGHT$ (X$, LEN (X$) -A+1) 
1 070 E$=MID$ (STR$ (ST (VAL (E$) ) ) . 2) 

1080 IF LEN(C$)+LEN(E$)+LEN(D$)>255 THEN BEEP:PRIN 
T"3> +'a9n + *' iniY f>Jf m*V7!!":PRINT X$:CLOSE: 
END 

1090 X$=C$+E$+D$:RETURN 
1100 CLOSE:PRINT"COMPLETED!":END 
1110 " HO *v>*> 7-7'* 
1 1 20 DATA 0, 1 , 52. 72, 82. 84, 88, 1 2 
1 130 DATA 103. 8, 59. 19. 3, 96. 1 6, 1 7 
1 1 40 DATA 97. 1 05. 1 1 7. 1 1 3. 1 1 0. 66. 37. 28 
1150 DATA 70, 71. 116, 1 15, 103. 114. 114. 115 
1 1 60 DATA 2. 4. 47. 24. 73. 20. 2 1 . 1 05 
1170 DATA 13.90.91, 122. 122. 52, 10. 25 
1 1 80 DATA 94, 1 05, 1 25, 4 1 , 32. 57, 1 23. 1 23 
1 1 90 DATA 1 20. 1 20. 1 27, 1 26. 36. 36, 1 25, 1 24 



THEN A=A+1 :GOTO 890 



3$9*7+< 



:PRINT X$:C 



THEN B=B-3:G0T0 1| 
THEN RETURN 



THEN RETURN 
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MIDIfflR«6T 
BASIC0t>^bffl 

3PJU h (7) r T-f * • P =7 -f * • ^v \ 

h • a v^ j(7)fg 1 f&zm&moxz 
a fcatn-r * ■/□ ^A (& 1 & 

fc)„ fcfc\ ftffl LfcMIDFgjglJa 
—■ 7>K<7>MT-32£f 

lOKtfr/ribtfffix— ?T\ ^t# 
■§■(73 1 00<7M£ £ 1 0<7)-f£<7)£fc^*r\ 



*C A,fcj£ UT'MIDI^'BASICT* 

MIDlS*«fe>fc 



& =E- K(i ( U XA^fc L ) £ 
fcfflU MMLffl^^5IJ(i3, 3, 

i;'j^%-iS'Jjs-rtz^T*FOR~ 

■So CWf^^P^A^hA 5 



£T£T, BASICCO PLAYACT' 
&-y— AWBGMlH&bfcl^lJ 
Sltn^x MIDI T'BGM £Bftib 



<7Xfc&T1SflsLT, £*>T<5£ 
Z<7Xf-A[Z«£&T1^> K 

x* hfr'AoX^-5(Sfti:f-3 
T fc 'J 7. h &tzhT ttofr* £ © 

MIDI T'BGM M'bf 7°P?' 
7A£fF5-LT'<7)>:EJft,££ LTti, 
PLAY3^ £<£ -3 fc ftbm^** HI * $ 
I n Z t ifh Z (FMSiST fc IrI U 7c 

*&o fc £ # ^^m^ti SOUNDS 
Tttl-r.tolzLTV.NSo 



mn^yyjbf-Lx 



^T4*- 9?4*-+^\> ' **>? %1%* 



10 _MUSIC(0, 0, I. 1. 1, 1, 1, 1. 1. I. 1) 

20 PLAY #1. "iHl". "SHI". "SHI", "8H2". "6H2", "SH2". "8H 

3", "6H4" 

30 PLAY #1. "852". "". "". "853". "". "". "853". "854" 

40 PLAY #1. "T1408V100O5". "T1406V100O5". "T1408V100O 

5". "TI 408V 10005". "TI 408V100O5". "T1408V1 2005". "T140 

8V100O3", "T1408V100O2" 

1020 A$="Q5L8G4. DG4. D":B$ = "Q504B4. " :C$ = "Q504D4. ":P 

LAY #1 . A$. B$. C$. A$. B$. C$. A$, A$ 

1030 A$ = "GDGB>D2<":PLAY *1, AS. "". "".AS. "". "", AS. AS 

1040 A$ = ">C4. <A>C4. <A":PLAY #1. AS. "". "". AS. "". "". A 

*■*$ „ „ „ 

1050 A$=">C<AF#AD2": PLAY #1. AS. "". .AS. , . AS. A 

$ - - 

1060 A$ = "GGGGGGGG":PLAY #1. "Q2G4Q6G4. Q8BAQ5G . Q2D 

4". "Q2B4". "L1604DDDDDDDDDDDDDDDD". "L1603BBBBBBBBBB 

BBBBBB". "".AS. AS 

1070 PLAY#1, "08G8Q5F#8Q8F#4. A>C<F#". "R3205A8". "". " 

04CCCCCCCCCCCCCCCC". "04DDDDDDDDDDDDDDDD". "". "AAAAQ 

8AQ5>C<Q8F#Q5A". "GGGGGGGG" 

1080 AS = " GGGGGGGG": PL AY #1. "Q8A8Q4G8Q6G4. Q8BAQ5G". 

"", "", "L1604DDDDDDDDDDDDDDDD". "LI 603BBBBBBBBBBBBBB 

BB". "".AS. AS 

1090 PLAYS 1. "Q8G8Q5F#8Q8F#4. A>C<F#". "R3205A8". . 

04CCCCCCCCCCCCCCCC", "04DDDDDDDDDDDDDDDD". "". "AAAAQ 

8AQ5>C<Q8F#Q5A". "GGGGGGGG" 

1100 PLAY #1. "Q4L8GGL16Q8GF#EF#04L8GGL16Q8BAGA". "' 

, "", "0406D4L8>Q3CCQ4DDQ8C<B16A16". "03Q6B4". "". "L16 

03DDDDDDDDDDDDDDDD". "GGAABBF#F# 

1110 PLAY #1. "05Q4L8BBQ8L16>DC<B>CQ5D2". "05Q4A8". " 

". "Q5GGF#F#G2". ""»"", "DDDDDDDDQ5D2". "GGAAQ5B2" 

1120 PLAY #1. "0805D2E2". "". "". "04Q8B2>C2<" 

1 130 PLAY #1, "L8Q8DQ5CQ8C4C<Q5BQ8B4". ""."", "L8Q8B8 

Q5AQ8A4AQ5GQ8G4", ""."". "02Q8F#2G2". "02Q8D#2E2" 



1140 PLAY #1. "Q8B06AQ8A4GF#Q6EF#". ""."". "Q6L4EEC<A 

>", "","". "03Q6L4CC<AD". "L406CCDD" 

1150 PLAY #1. "L4Q2GABR4". ""."". "Q2DF#G". ""."", "Q20 

2D>DD". "Q201B>DG" 

1160 PLAY #1, "Q805D2E2". "". "". "04Q8B2>C2<" 

1170 PLAY #1, "L805Q8DQ2CCCQ8CQ2<BBB". "". "". "L8Q8BQ 

2AAAQ8AQ2GGG". "*,"*, "Q803F#2G2". "Q802D2E2" 

1180 PLAY #1, "08BQ2AAA08GF#EF#". "". "". "Q8E4Q4EEQ8C 

4Q4CC". --,"", "L8Q803C4Q4CC<Q8A4Q4AA", "Q6CCDD" 

1190 A$ = "Q502L8GGGGGGGG":PLAY #1, "Q8G2L8G1 6R1 6G1 6F 

#32G32AF#". "Q803G2R8R32G#32". "", "Q803B2L8B1 6R1 6B1 6 

A32B32>C<A". "Q804R2R8R32C32". "", A$. AS 

1200 PLAY #1. "04B2B16R16B16A32B32>C<A". "R2R8R3205C 

32". "". "G2G16R16G16F#32G16AF#". "R2R8R3204G#32". "". 

AS. AS 

1210 PLAY #1. "05Q6L16DDDDDDDDEEEEF#F#F#F#". "",""," 

04Q6L16BBBBBBBB>CCCCCCCC". "", "". "02G>GGGGGAA". AS 

1220 PLAY #1. "05GGGGAAAABBBB>C#C#C#C#". "",*", "04BB 

BBDDDDDDDDGGGG". "". "". "GGF#F#GGEE". "02GGF#F#GGEE" 

1230 FOR 1=1 TO 2 

1235 PLAY #1. "Q806D4. <A8>C#8. <A>C#8. <A". ""."", "f#F 

#F#F#F#F#F#F#GGGGGGGG". "Q603AAAAAAAAAAAAAAAA". "". " 

L16DDDDDDDDEEEEEEEE". "02Q8D1" 

1240 NEXT I 

1250 PLAY #1. "06Q6D8L4DDDQ8D8". "R8Q605L4F#F#F#Q8F 

8". "". "Q605F#8L4F#F#F#Q8F#8*. "Q605D8L4DDDQ8D8" 

"Q503L8F#GAGF#GAF#". "Q502L8DEF#EDEF#D" 

1260 PLAY #1. "Q6D8DDDQ8D8". "Q6E8EEEQ8E8". "". "Q6E8E 

EEQ8E8". "Q6D8DDDQ8D8". "", "BAGABAG#B". "GABAGABG#" 

1270 PLAY #1. "L8Q506C#<A>D<A>C#<A>D<A". "Q505E8". "" 

. "L16Q6EEEEF#F#F#F#EEEEF#F#F#F#". "LI 606C#C#C#C#DDD 

DC#C#C#C#DDDD". "". "AAAAAAAA". "AAAAAAAA" 

1280 PLAY #1. "06C#Q3«AAAQ5A2". ""."", "05L8Q3E<AAAQ 

5A2". "05Q3C#8", "". "03A<AAAQ5A2". "02A<AAAQ5A2" 
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Welcome to the 

MIDI" 



MDItH^L^ 



10 _MUSIC(1. 0. 1, 1. 1. 1. 1. 

20 _MDR (36, 38, 43, 51,42) 

30 A=RND(-TIME) 

40 DIM S(13) 

50 RESTORE 2000 

60 FOR 1=0 TO 13:READ S(I) :NEXT I 

70 RESTORE 1000 

80 PLAY #1, "@H1@0V15", "§H2@28V12", "§H3@34V6". "@H4§ 

1V13", "§H5@122V15". "§H10". "§H10" 

90 A$="T200":PLAY #1 , A$, A$, A$, A$. A$, A$, A$ 

100 IF INKEY$<>" GOTO 3000 

110 SCREEN 1,2:WIDTH 32: KEY OFF:COLOR 14, 0, 0:CLS 

120 A$="":FOR 1=0 TO 31 : A$=A$+CHR$ (VAL ("&H"+MID$ (" 

00000041 63777F7F7F7F7F3F3F1 F0F03000000048CDCFCFCFC 

FCFCF8F8F0E080". 1*2+1.2))) :NEXT I :SPRITE$ (0) =A$ 

130 A$="":FOR 1=0 TO 31 : A$=A$+CHR$ (VAL ("&H"+MID$ (" 

C161717139393D3D3D1F1F1F1F0F0F07060C1C1C3838787878 

F0F0F0F0E0E0C0". 1*2+1,2))) :NEXT I :SPRITE$ (1 ) =A$ 

140 ON INTERVALS GOSUB 800 

200 ' GAME TOP 

210 RESTORE 1000 

220 CLS 

230 SC=0:X=120:XX=0:TS=50:TIME=0 

240 LOCATE 2, : PR I NT "SCORE: 0"; 

250 LOCATE 1 6, : PRINT"TIME: " :TS 

260 INTERVAL ON 

300 ' GAME LOOP 

310 LOCATE RND(1)*32. 1 : PRINT"t" ; 

320 LOCATE 0.1: PRINT CHR$ (27) ; "L" : 

400 ' TULIP MOVE 

410 A=STICK(0) 

420 IF A=3 THEN XX=XX+. 5: IF XX>8 THEN XX=8 

430 IF A=7 THEN XX=XX-. 5: IF XX<-8 THEN XX=-8 

440 X=X+XX:IP X>239 THEN X=239 

450 IF X<0 THEN X=0 

460 PUT SPRITE 0, (X. 1 60) , 8. 

470 PUT SPRITE 1. (X, 1 76) . 2. 1 

500 ' GET BALL CHECK 

510 AD=6816+(X-4)/8 

520 S=0:FOR 1=0 TO 2 

530 IF VPEEK(AD+I)=133 THEN VPOKE AD+I. 32: S=S+1 

540 NEXT I 

550 IF S THEN SC=SC+S:FOR 1=0 TO 13:SOUND I. S (I) :N 

EXT I -.LOCATE 8, 0:PRINTSC; 

600 ' TIMER COUNT 

610 TT=TS-INT (TIME/60) : IF TT<0 THEN TT=0 

620 LOCATE 21, 0:PRINTTT; 

630 IF TT>0 GOTO 300 

700 ' GAME OVER 

710 INTERVAL OFF 

720 FOR 1=0 TO 5: LOCATE 8. 1+9: PRINTSPACE$ (1 6) ; :NEX 

T I 

730 LOCATE 1 1 . 1 0:PRINT"GAME OVER"; 

740 LOCATE 1 3, 1 2: PRINT"SCORE: " :SC 

750 IF HS<SC THEN HS=SC 

760 LOCATE 1 0, 1 3: PRINT"HI-SCORE: " :HS 

770 IF INKEY$<>"" GOTO 770 

780 IF INKEY$<>" " GOTO 780 

790 GOTO 200 

800 ' MUSIC PLAY 

810 INTERVAL STOP 

820 _PLAY (0, F) : IF F THEN 900 

830 IF FF THEN 900 

840 READ A$ 

850 IF A$="*" THEN RESTORE 1000: GOTO 840 



860 READ B$, C$. D$, E$, F$. G$ 

870 PLAY #1, A$. B$, C$. D$. E$, F$, G$ 

900 INTERVAL ON: RETURN 

1000 " MUSIC DATA 

1010 DATA "04L4CD". "02L8Q5CC>CC" 

1020 DATA "05E2", "". "". "". "B8B8S8B8" 

1030 DATA "E". "<G<G>A>C", "05E2". 

1040 DATA "". "B8B8S8B8" 

1050 DATA "CD". "02COCC", "05E2", 

1060 DATA "", "B8B8S8B8" 

1070 DATA "E". "<G<G>A>C". "05E2". 

1080 DATA "". "B8B8S8B8 

1090 DATA "GE". "02COCC". "05G2", 

1100 DATA "", "B8B8S8B8" 

1110 DATA "DC". "<G<G>AD", "05G2", "" 

1120 DATA "", "". "S8B8M8M8" 

1130 DATA "DE". "01BB>BB". "05F2". "", "" 

1140 DATA "". "B8B8B8B8" 

1150 DATA "D", "<BB>BB", "D2", "", "R404C4" 

1160 DATA "L16N26N26N26N26N23N23N19N19" 

1170 DATA "" 

1180 DATA "CD", "02COCC". "05E2", "". "D4" 

1 190 DATA "". "B8B8S8B8" 

1200 DATA "E", "<G<G>A>C", "E2", "". "*, "" 

1210 DATA "B8B8S8B8" 

1220 DATA "CD", "02COCC". "05E2". 

1230 DATA "", "B8B8S8B8" 

1240 DATA "E". "<G<G>A>C". "E2". "". "". "" 

1250 DATA "B8B8S8B8" 

1260 DATA "GE". "02COCC", "05G2". 

1270 DATA "", "B8B8S8B8" 

1280 DATA "DC". "<G<G>AD". "G2". "". "". "" 

1290 DATA "B8B8S8B8" 

1300 DATA "DE", "01BB>BB". "05D2". "". "" 

1310 DATA "". "S8S8S8S8" 

1320 DATA "C". "COCC". "C2". 

1330 DATA "L16N26N26N23N23N19N19N23N26 

1340 DATA "" 

1350 DATA "04GG". "02COCC". "05G2" 

1360 DATA "05L4GG". "6205L4GG". "" 

1370 DATA "S4S4" 

1380 DATA "EG". "<G<G>AD". "G2". "EG". "EG" 

1390 DATA "". "S4S4" 

1400 DATA "04AA". "02CC>CC", "05A2", "AA" 

1410 DATA "AA". "". "S4S4" 

1420 DATA "G", "<A<A>AA". "G2". "G", "G", "" 

1430 DATA "S8C8C8C8" 

1440 DATA "04EE", "02COCC", "05E2". "" 

1450 DATA "©122", "", "B8B8S8B8" 

1460 DATA "DD". "«BB>BB", "D2", "", "". "" 

1470 DATA "B8B8S8B8" 

1480 DATA "04C2". "02COCC". "05C2", "". "" 

1490 DATA "". "B8S8S8S8" 

1500 DATA "". "<C4". "C2". "". "", "" 

1510 DATA "B8M8M8M8" 

1520 DATA * 

2000 ' SOUND DATA 

20 1 DATA 1 00. 0. 0, 0. 0, 0, 0. 254. 1 6, 0. 0. 0. 1 2. 

3000 ' SOUND TEST 

3010 CLS: PR I NT "SOUND TEST" 

3020 READ A$ 

3030 IF A$="*" THEN RESTORE 1000:GOTO 3020 

3040 READ B$. C$, D$, E$, F$, G$ 

3050 PLAY #1,A$,B$.C$,D$, E$. F$,G$ 

3060 GOTO 3020 
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lGTT$=rtJb-7*ye/7 



ZA/<S!tt*S© 

FS-A I GT(7) MIDI(7)-f±|i(C -^ In 
T«*IS12, 1 /!-§-T» L.MIDI 

fili^ ^ § \m l fc 7°p ^*7 A151J 
^I^CStLfco l*-u * 
<7)7°P:?*7A15iJl2, -f>^-7i 

tfreijfc*^ fc & tzmkizm-3 

tz FS-A1 GTimtt&tz -3 fc 

^ZT-^IJ, FS-A1GT(7)S^n n p 
■n&f$@8^«M7X MSX-DOS2ffl(7) 



MIDI*- h y -y vti^OST'HA 

«P-7> K<7)MT-32£ter>fc 

1 ^-§-(7)7 o P^7A(iC000H# 
JfcCn— K£*U BASICS USRI5 



Wk<?) COM 7 r-f JUt LT100H 
Sttiizn— K$*i£A^ *£## 
it(zB< 'J&gA<&*gB$-£8000H 
EmzlGSkLXIrhWifrffu? 
^A^fFofco ^CT1S±LO(7)*\ 
MSX-M80C7)*. PHASE*8H£lft<£ 
tz ZMt*ORG ^lznT^Z> 
t)\ 7°P^*7A^W-^(7)#i-fe(;$i 



. PHASE 8000H 
SHfc7)ili#lZiIA\tl5jft 8000H 

muzti&$nxfrb$&f$tiz> 

ASEG 

ORG 8000H 
£»#&*Tfc»<(J-r/3ft IK 
IWC # T COM7 7 -f fl»0** # 

fZ-pUTte, TH2>7'JU'J7. hS 

tzters<v #-lz J: SiST'-b >7' 
JU*tll£JiT^LTl5U\, 



Y 

■J 



MID12.Z80 : test FS-A1GT MIDI 

(0 1991 Panasonic. (C) 1992 N. Ishikana 

on 2. Feb. 1992 by nao-1 

Warning : not tested on external MIDI cartridge 



Symbol Definition 




rdslt 

calslt 

doscal 

ver_idl 

ver_ld2 

exptbl 

If 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



001ch 




; MIDI interface 

UARTsend 

UARTrecv 

UARTcmd 

UARTstat 

ti_int 

tiner0 

timer2 

tm_cmd 

: bios 

BIOS_BREAKX 

; hook 

h. oknorm 

h.mdin 

h. frqint 

h.mdtm 

h. keyi 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



002eh 
0fcclh 



0e9h 



equ 
equ 
equ 
equ 
equ 



0ech 
0eeh 
0efh 

0b?h 

«Tff75h 

h. oknorm 
0ff93h 

h. frqint 
0fd9ah 



: system timer Lo* 
;read slot 
;call slot 
;dos call 

;MAIN ROM Version ID 
;MIDI interface ID 
:slot expanded table 
: line feed 
;carrige return 

8251 data transmit 

8251 data receive 

8251 command/mode register 

8251 status 

titer interrupt flag off 

8253 counter #0 

8253 counter #2 

8253 command 



ASEG 
ORG 



100H 



Id sp, (6) 
Id c. 6fh 
call doscal 



;Hook for MIDI IN 



;Hook for 8253 timer 
;Hook for 8253 timer 



; get version number 





jr 
Id 
cp 

jr 

Id 

Id 

Id 

ldir 

call 

call 

call 

Id 

Id 

call 

Id 

call 

not_dos2 : 
Id 
Id 
call 

rst 



nz, not_dos2 

a,b 

2 

c. not_dos2 

hl.relocation_source 

de. relocation_destination 

be. relocat ion_end-relocation_source 

setmidi 

main 

rstmidi 

de, msg_end_of_program 

c.9 

doscal 

bc.62h 

doscal 



terminate program 



de, msg_not_dos2 

c.9 

doscal 



msg_not_dos2 : 

db 'Not MSX-D0S2". cr. If. '$" 

msg_end_of jrogram : 

db 'End', cr. If. '$' 

relocation_source: 

.PHASE 8000H 
relocat ion_destinat ion: 

Set hooks 



call chkmidi 
jp c, nomidi 



No previous regular expression 
di 



:Have I MIDI interface ? 
: No 
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DlHfelcovne to the 



MIDI J 



MSX-DOS1 «:?-#*- PC*fc& 
lXt$V*<7)T\ jfe<7)fc«)MSX- 

DOS(7)/n*— v 3 >#-§-£$t*r#>5o 

8000H#ifeC$£^ L *setmidi\ 
*main\ Vstmidi*** W^U— 
f>^3-Jl/t^o *setmidi*fc 
*rstmidi*,& 1 /! -§-<7> 'J 7 h £ [J 

&VaitHLmS*£ *putmidi1*£f 

*waitHLmS*li, 3.9v-f7n## 



-^Ht7*;U— 9 1 > *wait4micro* ; 
tJSLUft/WU ^C^^*^U HLU 
v 7 ? — <7>fax 1 5 U #>#O 

MIDI(7)$IMT1^ y^rAHv 

*putmidi1* (i HL U v 7 ? - T*}g 

7 9 -X-m-fc £ tltts U r- &<7)g 
Z<DT—9&M\D\lZ&fetZo RS 
-232C-T >?-7 i-T. £ R9(^ 
8251 (7) 7 7 1 — ? 7 U v 7 ? — <7) fcf 
7 r- 2 t t'-y r- <7)j3Jj/W 1 fc «b 



jr 


z, setho2 


;MID1 interface is not built in 


Id 


hl.h.mdtB 


;save hook (8253 tiner) 


Id 


de, hoksvt 


;set address to save area 


push 


hi 


;save hook address 


call 


copyS 


;copy old hook 


Id 


hi. hokndt 


;set address to new hook data 


POP 


de 


;get hook address 


call 


copy5 


;set ne* hook 


Id 


hl.h.mdin 


;save hook (MIDI IN) 


Id 


de, hoksvt+5 


;set address to save area 


push 


hi 


;save hook address 


call 


copy5 


:copy old hook 


Id 


hl.hotadi 


;set address to ne* hook data 


pop 


de 


;get hook address 


call 


copy 5 


;set new hook 


jr 


iniadp 





setho2: 







;setting for MIDI cartridge 


Id 


hl.h. keyi 


;save hook 


Id 


de, hoksvt 


:set address to save area 


push 


hi 


:save hook address 


call 


copy5 


;copy old hook 


Id 


hl.hokadx 


;set address to new hook data 


pop 


de 


;get hook address 


call 


copy 5 


;set new hook 



nomidi: 



copyS : 



Id 
Id 

call 
ret 



Id 

ldir 

ret 



iniiadp 



de. BSg0 

c,9 

doscal 



be. 5 



; print aessage 



Hook Definition 



hokmdi : 



JP 
ret 

ret 

JP 
ret 

ret 

JP 
ret 
ret 



siidiin 



mdtain 



adintr 



;hook for MIDI IN 



;hook for 8253tiaer 



;hook for MIDI cartridge 



\msmrntz,, mm^-^mt, 825 

in 1 A-f- h<7)fil^*sat;^t/fo 

aM^ffHttlWttj*, BI0S<7) 

*BREAKX*£H?irffl L T (ctH + 
[stop] +— %W<s tfStlTlvfitf 

♦maln'B^putmidir^i^t/tt L 
T^fcttiU *waitHLmS"£f>£U f 
tbLT 1 «>M^*>s *potmldi1*^r 

lttt\ c / -f v -v — 7 <n 4 % ffgtf 



JU*data1 address" £ *data2 
address" <n&frtz' e 1 J! -^7)^1 
*0%\zLXT-5 £##&*. ft 
«\ MIDkvffig;(7)7*— ? ZMtlZ 

?-l& t'xit 9 -r -7-m u & 

fr%i£'>XBGM%%LLWh'7n 

u 7=7 L.ti&ffiztiZtoX-^mt 
■if<7)«fc?CLTV#l\, MIDIA2J 
frhnmV&Mt, v^U*USER 
rn'O^-frXmrnZftZo Z\(T)-7 



initialize MIDI Interface 



iniadp: 
MIDI baud rate generater 

Id 



++^ 



II**- 



++— ' 

out (ta_cad),a 
Id a. 8 
out (U»er0).a 
tiner for 5msec 



id 



a. 101 10100b 
lllllll*- 

IIII++H 



;8253 Control Word 
Binary Count 

Mode 3 :Rate Generater (Square Wave) 
LSB ReadAoad 
Counter #0 for Baud Rate Generater of 8251 



; Set Counter. 4MBz / 8 = 500KHz 
; Set 8253 Counter (LSB) 

;8253 Control Word 
Binary Count 
Mode 2 :Rate Generater 
2bytes ReadAoad 
Counter #2 for 5nsec tiaer 



out 


(tn cad), a 




Id 


hi, 20000 




Id 


a. 1 




out 


(tiaer2).a 


; Set 8253 Counter (LSB) 


Id 


a.h 




out 


(ti»er2).a 


; Set 8253 Counter (MSB) 


xor 


a 


; Reset 8251 


out 


(UARTcad).a 


: Set 


call 


wait4aicro 




out 


(UARTcnd).a 


: Set 


call 


wait4aicro 




out 


(UARTcad).a 


: Set 


call 


wait4aicro 




Id 


a.40h 




out 


(UARTcad).a 


; Set 40h 


call 


wait4aicro 




Set 8251 






Id 


a, 01001 110b 


;8251 MODE Instruction 



MINI* 
IIII++- 

•H 



out 
call 
Id 



(UARTcad).a 
wait4aicro 
a. 001001 lib 
IIIIIII+- 
IIIIII+— 

mm — 

II I H 

III*- 

ih 

H 

H 



Baud Rate :*16 ( 500KHz/16 = 31. 25KHz ) 
Character Length : 8bits 
Parity Disable 
Stop Bit : Ibit 



;8251 COMMAND Instruction 
Transait : Enable 

DTR = LOW : 8253timer enable 
Receive : Enable 
Send Break Character : Noraal 
Error Reset : No Operation 

RTS = LOW : MIDI IN enable 
No Operation 
No Operation 



out (UARTcnd).a 
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P 7=7 AtfiJT-liMIDlA^T-'-? 
UT^tzfi\ 7c£ *.^T*fc8251 
(DZ.T—5>7-l'is7.5>—<T)M i )iZ : 

r- 9 £irc<z4£x 5 'j^rao -5>o 

SJ'JiA^tis 7^;U*USERtime" 

miz s tWiA<*7 5^*£'J-tz<y r- 
tZtzftlZ^ I/O*- h<7)EAH#ife 
C\ tx^(7)iii<7) 1 /\*-f h £##iA 
A,T'In& BGM£f£9 7°P?*7A 
Us CCOSJUiA^T'MIDKx— ^ 



'J* h£*MIDI2.Z80*£U-)-7 

M80MIDI2.REL = MIDI2.Z80 
L80 MIDI 2 , MIDI2/N/Y/E 

*MIDI2.COM *#T#£> wifl^ 

*MIDI2.COM*^#ii<7)DOSi] v 

M80 MIDI2.REL,MIDI2.PRN = 




a. (UARTrecv) 
(t«_int).a 
de. msgl 
c.9 
doscal 



: interrupt flag reset 
;print lessage 



■ain routine 



hl,data_l_address 

de,data_l_length 

putjnidij 

hi. \m 

waitHLnS 

hl.data_2_address 
de.data_2_length 
putjiidij 



reset MIDI interface and reset hooks 



rstnidi: 



reset 8251 



Id 



IIIII+- 
IIII+- 
III+— 

llH 

N 



rstndl: 



(OARTcnd).a 
chked2 
z. rstndl 
de, h. ndta 
hi. hoksvt 
copy5 
de, h. fndin 
hi, hoksvt+5 
copy5 
rstad2 

de.h.keyi 
hi. hoksvt 
copy5 



RTS = HIGH : MIDI IN disable 
DTR = HIGH : 8253timer disable 
;8251 COMMAND Instruction 

Transmit : Enable 

"DTR = High 

Receive : Disable 

Send Break Character : Noraal 

Error Reset : No Operation 

~RTS = High 

No Operation 

No Operation 



:if not built-in , then jump 
; restore hook 
;save area 



de, nsg2 
c.9 



; restore hook 
;save area 



;print lessage 



MIDI2.Z80 

t Jg^r 5 t *MIDI2 . PRN" t I* n 

7 , -fe>7*JU'j:*hA<T*#-& z<n 



^(7)7°P^A15lJti N *M*(t 
MIDI*- Y U vVT-ltWlftZlim 
LTV£l\ ft- Y 'J 7v^A¥ 
T*# L tzX \ 'S&Wlzfc U Tflf IE 'J 



&XiZZ(D7n 7=7 AtfiJ £## t 

Ufc7 'J - V7 f O x TW&Mfc 

MiDi<7)f ij y a* %-toar 5 7° 

P^'^Ali, 8000HJiLh(7)#±fe[Z 
frtitz -?n-7 z 7L,t(n i )>? #@ 

940** CDS 

z<nj£m*mzt&#>tzi:£. * 



call 


doscal 




ret 






;============ 


nummmn, 


=======::============: - === _ : . =: ________ = ____ ==;= _ 


; interrupt routin 




ndintr: 






in 


a. (UARTstat) 


:MIDI IN ? 


and 


mmm 




jr 


z.ndintl 


;no 


call 


USER in 


;yes 


jr 


ndintr 


:MIDI IN check again 


ndintl: 






in 


a. (UARTstat) 


:8253 tiner ? 


and 


imam 




call 


nz.USER_time 


:yes 


JP 


hoksvt 




midiin: 






in 


a. (UARTstat) 


:MIDI IN ? 


and 


aaam 




jr 


z, midinl 


;no 


call 


USER in 


;yes 


5r 


nidiin 


:MIDI IN check again 


midinl: 






ei 






iP 


hoksvt+5 




ndttnin: 






in 


a, (UARTstat) 


;8253 timer ? 


and 


wmm 




call 


nz.USER tine 


;yes 


JP 


hoksvt 




USER in: 






in 


a. (UARTrecv) 


:read MIDI IN data and reset interrupt flag 


ret 






USER_tine: 






out 


(tn_int),a 


ireset interrupt flag 


ret 







subroutines 



check MIDI interface 
Return : [CF]=1 

: [GFM . CZF3-1 
[ZFJ-U 



no MIDI interface 
found MIDI cartridge 
MIDI interface is built in 



chkaidi: 



Id 


a, (exptbl) 




Id 


hl.ver 


idl 




call 


rdslt 




:read Main ROM version ID 


cp 


3 






ret 


c 




;MSX1.MSX2,MSX2+ return 


call 


chkmd2 




;read MIDI interface ID 


ret 


nz 




; M I D I interface is built in 


Id 


b.4 
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Welcome to the 

MIDI" 1 



IWMNff L fcutf* *> p * p 
— y**s &l^ J% r MIDI^7 — h U -y 

^Wl^EKi, MIDIx-? 

C8I;lfcib-#l*Lfc, MSXC7) 
MIDk7X±*$#CJ: & £, f;v>* 



&£Ui* 4$§iJ#gtfJi::fi&bftS 
(»tzhnt>\ * ft £ fc M I D I^^CO 

t&#>Tu-I> Uliti^ P>fcfa— 



chkrol 










push 


be 


;save counter 




Id 


a. 4 






sub 


b 


iprimary slot number 




Id 


c. a 


;save 




Id 


hl.exptbl 






Id 


a. c 






add 


a. 1 


:set exptbl 




Id 


l.a 






Id 


a. (hi) 






and 


mmm 


expanded ? 




jr 


z. ehkro3 


;no 




Id 


b.4 


; number of expanded slots 


chkro2 






: search expanded slot 




push 


be 






Id 


i.mmm 






sub 


b 


•Mvm™& 




rlc 


a 






rlc 


a 


;100nnJJ0B 




or 


c 


;100nnmnB = slot address 




call 


chkid 


icheck MIDI ID 




pop 


be 






jr 


z, chkroy 


; found MIDI ID 




djnz 


chkro2 


;next expanded slot 




POP 


be 






jr 


chkro4 


;next slot 


chkro3 






; search prinary slot 




Id 


a.c 


;set slot address 




call 


chkid 


;check MIDI ID 




pop 


be 






jr 


z. chkroz 


:found MIDI ID 


chkro4 










djnz 


chkrol 


; search next slot 




scf 




;no MIDI ID 




ret 






chkroy 










pop 


be 




chkroz 










xor 


a 


:set Z flag, reset Cy flag 




ret 










Is MIDI interface built 


in ? 






Return 


: [ZP3-1 

: [ZF]=0 


built in 
not built in 



chkmd2: 



Id 
Id 

call 
and 

ret 



a. (exptbl) 
hl.ver_id.2 

rdslt 

1 



;read MIDI interface ID 
:set Zflag 



check MIDI ID 

Entry :[A]=slot address 

ReturnrZ flag is set if MIDI ID is found 






Mc 7°p </^ 5 > ?*£!&*. tz *j , 
®>£}%fatt<nfflSLm*:m^tz u r 

^■5 j: -5 « smtm-mntze tz 

£<7>8HI J $'7'P?*7 5 >?'Wf§£ 



id address 



equ 401ch ;MIDI ID address 



push 


be 




Id 


de, id_string 




Id 


hi. id_address 




Id 


b.4 


; length of id_string 


push 


af 




push 


be 




push 


de 




call 


rdslt 


;read data 


pop 


de 




pop 


be 




Id 


c. a 


;save data 


Id 


a. (de) 


:get char 


cp 


c 


;same ? 


jr 


nz. chkid2 


:no 


pop 


af 


; restore slot address 


inc 


de 


;next char 


inc 


hi 




djnz 


chkidl 


; check next char 


pop 


be 


jrestore environment 


xor 


a 


;I found ID 


ret 






chkidZ: 

pop 


af 


; restore slot address 


pop 


be 


; restore environment 


xor 


a 




inc 


a 


:worng ID 


ret 






; wait 3. Dmicrosec 




wait4micro: 






push 


af 




push 


be 




in 


a. (stiael) 


; get counter(low) 


Id 


c, a 


; save it 


waitlp: 






in 


a, (stimel) 


; get counter (low) 


sub 


c 




jr 


z. waitlp 


: loop 


pop 


be 




pop 


af 




ret 






; wait 


HL nS 




waitHLmS: 






push 


be 




Id 


be, 256 




waitHLmSJ: 






call 


wait4micro 




dec 


be 




Id 


a.b 




or 


c 




jr 


nz.waitHLsSJ 




pop 


be 




dec 


hi 
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jr 
ret 



a.b 
1 

nz, waithlmS 



putjnidi_l : put data to MIDI 
BL address of the data 
DE length of the data 



put_nidi_l_not_ready: 



Id 

Id 

push 

push 

di 

call 



pop 
pop 

ret 

putjnidM: 



and 
xor 
jr 
Id 



out 
dec 
Id 



ix, BIOS_BREAKX 
iy, (exptbl-1) 
hi 
de 

calslt 

de 
hi 



a. (UARTstat) 



CTRL+STOP 



101b 

nz. put_nidi_l_not ready 

a, (hi) 

hi 

(UARTsend).a 

de 

a.d 



nsgl 



'MIDI interface is not found.', cr. If, 'S' 
'MIDI interface and hooks are set', cr, If. ' 
db 'MIDI interface and hooks are reset', cr. If. 



workarea definition 



hoksvt: ds 10 
. DBPHASE 

relocation_end: 
end 



:hook save area 





FS-A1GT0 "I 

FS-AlGT0Dtt«£»31U *frtf±#ofc.«S 

mWUtzs FS-AlGT(Z)±^ci:f±^Co 




ROMmmcDmo 
16+pyKh 

fr tl T I » -5 ROM £ m. <7) •£• ft ij< 
2032*P/\*-f r-T\ HfgCglftS 

-f r-T*A££#i^ LrfrU m 

C % MSX-DOS2<7)ROM#64*P/* 



L^L, DOS2^j- h U y v^FS- 
AlSTct U fcDOS2C7)ROM(7)#M^ < 

*7jzwm&PRx*ih% 
BUFFERS© 

MSX-DOS2T1i,x-i- *?<7)F*$§: 
Z-gftfHzmg? % Hz * ? -/ n'v 
7 7 — (7)&£ r BUFFERSjP V > 




D8l¥H5-l7S-<D«iSlBIOS 



Get screen mode 



•<y /-? 



tfiJR 



DE = 1100H 

A = * /c tt FFH 

A = jHgffri-t — !•' 






ANK 


1 


KanjiO 


2 


Kanjil 


3 


Kanji2 


4 


Kanji3 




ffli£ 



WT- I' 7 4 -»<•'-# ^ i/> i A u •>' x * -<73flfi#^t> fe 4 

= FFH X- , C ©t£$g BIOS ia-^ti. Bffilfti* - K 
(DJi-£'a]t) Jt^Wifttttt, A = -C\ COM* BIOS 
5: =j-a--j-£ 



Set screen mode 

Blfig l*i Ifli * - !■' £ W&&t S , 

'*■$,* -$?- DE = 1101H 

A = BfliSf*— K 
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BUFFERS 99 
BUFFERS 

MSX-D0S2/J- h U -v vT*(i20, 
FS-A1GTT*(J19fc*o/Zo W, 1 
\W> f £ < tt -3 fz(Dtzh 1 b\ ' <7 
7 7 -nmWi (T7'P^7A 

ROMx-r77© 



12£-§-T1i, Kf^ftOROMT- 1 
7.9to?4 ^7 h U-^i«tLyco 
S^T't), — SB<7)7 7'-r^K7)H 

359K/W K# 
tt357r-f;UT*ftffl+ 
5T3Krt4 htffcffl^ 

Tl±513K/f-f htotl^^l 

-§-(zte#W;£\ H: l "Ctefrfro 
feo R0Mg*7)-gftrt x «biffiH:LT 
fc N &£513K/\'-f h (7)7 7 -"fJUfc 
Atl££:*S(i^\, R0MxV7^ 
lZ(J#£&«&fclV7)£r*r"bx SMJ 



HELP! 



FS-A1GT<7)MSX-D0S2IZ(&B8& 
& r HELPj£ r KHELPj#& U, 

7°7r-r;K7)7 :f < u? h u-^t 

tt5. £fc> FS-A1GT#JS<73 
MSX-D0S2v7.xAx-f 7. * (Z 
«, 3SI§£ B*i§(7)i^7JC7)^;U7 

77-fiW < A-5Tl^„ 



Welcome to the 
M | D |Wo,ld 



LfrU 3SI§ffl©^U7°7 7< 

Use this command with 
Japanese D0S2 mode. 
KMODE 
MODE 64 

HELP command 
name 



rAf-f *7(D r HELPjT4 Uy 
h U-lZ&$53l@<7)^./U7 7 7' 

IH U Fi^rf o W, MSX-D0S22)- 

t-V 7 7 IZ Ao T Wc5H^U7° 
7 7"T ;UA<A-3 T I *# l v7)£f *> -5 



Bft#ib(& S|ig£& r HELPjtf 

n v> Kfc1sM/«C^£i^ <£ "5 tz 
HELP=iv> K«r3feST %«•)** 



FS-A1GT <7M±$ 



$E 



FW 



CPU 



>^eU- 




«fc«!M^ 



WjSMft 



ROM 



RAM 



n y h cr — 7 — 



g/KX^ 



S/jvSC^i 



i^fc 



[iS^jff# 



n y h n — 7 — 



ftffl.^4 9 



7 P -y fc° — f 4 7.7 




Aitium- 



A-h!)r>' 



enffl 



7' "J y * - 



SP! L ft!±i7J 



MIDI ft 7J* 



MIDI A7J* 



■^>f ^ATJ 



0^ W^ 



Z-80A ffi% ?t*y ? m$.%L 3.579545 MHz 



R800 7 n y *J2|$$[ 28.636360 MHz 



^ BASIC 80KB 



MSX-DOS2 80KB* 



MSX-MUSIC 16KB 



^■7^y V 256KB 



i^-gmiW 512KB 



MSX-JE, 1*1 $t y 7 h 608KB 



MSXView 496KB* 



J A y RAM 512KB* 



k'ftRAM 128KB 



S-RAM 32KB* 



V-9958 ffia 



(MSX2+i|H|C) 



RGB, fcr*(RGB^T-*in), S l&fifc 



PSG AY-3-8910A 



FM Wffii YM2413 



PCM 8 fc" y h lfty * ^ 



iU^ H"; hn yfyf— 7/f ^a^y 



3.5 4 yf 2DD 720KB 7 * — '■* y 



MSX$(^50 fc'yx2 



DSUB 9 fyx2 



T y 7 j. y — ^ 14 fc' y 



^ - DIN 4 t° y 



DIN 5 fc' y 



DIN 5 t' y 



t — i? k 9 9 



DIN 8 t' y (RGB, fc'x^^ffl)' 



* fi x FS-AlST^^OiiJJQ^^ 



71 




i^emi mm 





Hte 







ivjT-om 
















(}T*.359HR59) 










¥%ftyTC/??*-i>m 














(tt"=P. 150 HRO) 











*ftft-<^ayT 
HA) ziScto 



J lift »u. 





§4 %*£*§ 





Zftfrofco fctatyZ 4 370)1 
BUC AS (Jfeffc^ftfrofctt^ 




AMR nhfrfoM 






jiiiU^^ lie ~>t5L 


■ 






j#f '}(?(*£* 


) Si 








^77© 





av^ftutif-th, 

T^U>f-(7)fFp D a (i, %A,t£ZH 
*> ~ti£-Jt,T, ?-*>li8Bft< 



ItffifrT' # ftU*? ft(7)T*rtllH 





MSX«M*ttJBJ)IVf 



2 fl %<n MSXWf*K* 3 - P y 
y<(D MSX3.-+f- ^;U— 7°£ 

& (7) (i r 3 - P y / \°HAc7) M SX 

it— 9*— $%— -?<nv-£r>it 

EAT* 0*^7 <bLi^i. Mil 
LT'-T^-) r MSX Club Goudaj/c 




rnaal) ifi"7^7 *fi? > (Qu 

-asar) *smX' 1 ttl i eti\m% 
frU MSX(7)flKR%-#Mlc4ftt 

n * b t ifX &'* T (X-K # * 






.TV - ■'•'• 



■£<!:DfclVMi 







Hk <*^*<MSX Club Gouda 
W,tfl»£iWWSg£38X"C»U 




U tl\^At.A3t*o 3?g©$t 

££^ 30^T(/V£-3®AHfcim\ 

MSX CLUB GOUDA 
ATTN. MR. ARJAN PROSMAr 
MIDDELBLOK 159 
2831 BM GOUDERAK 



frfr********^ 




#l§<DU)o£A> 









f ^t 


5S 


x Is 


* 


I& 


flF 


W 



"5 * 

< * 
*i it 

' t- 

7* 





?7< 


it 
M 
it 

I 

si 


^1 



■a ± 
t « 
Z it 

- ^ 

7 * 

■y -5 

t X 

L tf 

T t>- 

'■ -> 

i fc 

I 



M 











X 


by \ LI a A«"Z* 


m 
i 


3 * 1- ¥ '1 1 1- 


& 


•X -iifcW^^'iSg&k 




*1£?t?tT-ii ^HT wl 


i 


fil.xV.l3. |^y 



V « 

# fr 



L B 
X *< 
l* # 
% ± 

fir h 
t -f 

rj^ -^ 

L tt 

X * 

A I 

* « 
I A 
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vi U- *— TtftH- h f-g)^< 
149* a v tA N £&JS^iz@£-3tf 



x>a;p-^ 
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rtf*t\, 
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£tHL7cWc#>T-f fcLWJ 
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<7)3£8UZ «fc ^TU^A^WtfT-g 
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*** FM VOICE EDITOR DATA *** 
*** VOICE NAME=E. Piano *** 




PARM/OP0. 0P1 


MODULE 


l-H l/V % 


15 


li-\" l\" v>) 





I/-VU-7' M7° 





VMV % 1<V' % 


7 


7 9vl 


• 15 • 


T4t< 


■ 10 • 


9-lf4 % J 


• 6 • 


'i'J-X 


• • 


*-MF Vl-W 


1 


t-i^** M -b 


1 


\w 





f-J-J-l 





f" 4%\— : /3> 






CARRIE 




DATA 0000 0000 0000 0000 
DATA 0000 0000 0000 0000 
DATA 4F17 60FA 0000 0000 
TSDA 001 1 1 1A6 0000 0000 




992 (C) 



1. 1. 1, 



"mwsl 6ml. BAS 

< Music Workshop Vol. 

< E. PIANO 

< BY Y. K I TAGAM I 
50 CLEAR 5000 

'/// INIT /// 
70 CALL MUSIC (0. 0, 1 

DEFSTR A-H, T 

DIM A%(15) 

I POKE &HFA6C, 20 
110 POKE &HFA7C. 20 
120 POKE &HFA8C. 20 
130 POKE &HFA9C. 20 
140 POKE &HFB0C. 20 
150 FOR 1=4 TO 15 
160 READ A$ 
170 AX(I)=VAL("4H"+A$) 
180 NEXT 

190 DATA 0, 0, 0, 
200 DATA 4F17. 60FA, 0. 
210 DATA 11, 1 1A6, 0, 
220 CALL VOICE COPY (A*. @63) 



16 > 



230 
240 



'/// PLAY DATA /// 
— - INIT --- 



250 T="T60 
260 A0="O5L4 ©63V15 
270 B0="O4L4 @63V13 
280 ' "— - MEL — 

290 A1=">E2R8D8C8<A8A-8>E16D2R8. <B 1 6>CI 6 
D4. G4D8. C8<B16B-4. B-1 6>C1 6D8C8<B-1 6>C8. 
< 

300 A2="A>CEGA-GFGEDCB-AGFG< 
310 ' '--- CORD — 

320 B1=">EEEE EEEE DDDD DDD D< 
330 C1=">CCCC CCCC< BBBB B-B-B-&B-8. 
B-1 6 
340 Dl=" AAAA A-A-A-A- GGGG GGG &G8 G 



EEEE EEE &E16 E 



350 E1=" FFFF FFFF 

8. 

360 PLAY #2, T. T, T, T. T. T, T. T, T 

370 PLAY #2. A0. B0, B0. B0. A0. B0, B0, 

380 PLAY #2. Al, Bl, CI, Dl, Al. Bl, CI, 

390 PLAY #2, A2, Bl, CI, Dl. A2, Bl. CI, 

400 GOTO 380 
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:;^)»3>t^ hTtix #■£ foXW'^^it^ 



sA^ofcftfciMiiL-cvf-to 

ffr&ti BASIC, MuSICA<7)^*>«b^: 



MuSICA^Jf-^ti'jZ^-r^fe 
itf4£ LTL2]##5000R 



£ 


t107-24 


HS3SS8IEBI1II1J6-11-1 


r 


3.U-I?f£SLLlt^b 


(WO?*:*— 


56 


MSX^7/9s;>Si*gB 


ZCSOD^^^-h^ 



7f U iWL»iOT MuSICASWS 



«R<!f*G>Wtf 

BYfPPffliE^ 



;*** *** 

;*** 'ORG-34 . MSD" *** 

;*** *** 

:*** Presented by. *** 

:*** TRAGIC - Kaori Ashino *** 

;**» *** 
■ ************************************** 



FM1 = *I.*F1. Ml /3 , M4 . MA . MB , MC 

. MD , ME . MF , MG . MH , MI . MJ , MK . ML 
FM2 =*I, *F2. Ml /3 . M4 . MA . MB . MC 

, MD , ME , MF , MG . MH . MI , MJ , MK , ML 
FM3 =*I,*F3. Ml /3 . M4 . MA .MB , MC 

.MD . ME .MF , MG , MH . MI . MJ . MK , ML 
FM4 =*I,*F4. R /2 . S3 /2 , SA .SB . SC 

, SD , SE , SF . SG . SH . SI . SJ . SK . SL 
FM5 =*I. *F5. R /2 . S3 /2 . SA .SB , SC 

, SD . SE . SF . SG . SH . SI , SJ . SK . SL 
FM6 =*I.*F6. R /2 . S3 /2 , SA .SB . SC 

. SD . SE , SF , SG , SH . SI . SJ . SK . SL 
FMR = 
FM7 =*I, *F7, Bl . B2 . B3 . B4 , BA . BB . BA 

, BD . BE . BF . BE . BH . BI . BJ . BI . BL 
FM8 =*I.*F8. Bl . B2 . B3 . B4 . BA . BB . BA 

.BD . BE .BF .BE , BH . BI . BJ . BI . BL 
FM9 =*1. *F8. Bl . B2 , B3 . B4 . BA . BB . BA 

, BD . BE . BF , BE . BH . BI . BJ . BI . BL 
PSG1=*I.*P1. BD1. BD2. BD3, BD4. BDA. BDB. BD 
A, BDB, BDE. BDF. BDE. BDH. BDI/3 . BDL 
PSG2=* I . *P2, SD 1 . SD2, SD3. SD4. SDA. SDB. SD 
A. SDB. SDE/3 .SDH. SDI/3 .SDL 
PSG3=* I . *P3. SY 1 . SY2, SY3, SY4. SYA. SYB. SY 
A, SYB. SYE/3 . SYH. SYI/3 . SYL 
SCC1 = 
SCC2= 
SCC3= 
SCC4= 
SCC5= 

: — initial ize. 

* I = t 1 20 116 

: : : :FM initial ize. ::::::::::::::::::::: 

*F1=665 vl3q6 o3 

*F2=@33 vl2q6 04 

*F3=©65 vl Iq6 o3 z32 r8 

*F4=@65 vl3q6 o3 

*F5=833 vl2q6 o4 

*F6=§65 vl lq6 o3 z32 r8 

*F7=©33 vl3q6 o2 

*F8=®65 vl2q6 ol 

*F9=®23 vl2q6 o3 

; : : :PSG initial ize. :::::::::::::::::::: 

*P1=811 vl5 o2 116 

*P2=@14 vl 1 o3 116 



*P3=615 vl3 o3 164 



: music data. 

R=rl rl 

:+++melody & sub. +++++++++++++ +++++++++ 

Ml = (p0D32p32ml ) D32DDDDDE (F) FFFFFGAF EE 

EE<B>CE (D#) D#D#D#D#<AB>C<A> 

:S1=R 

;M2=M1 

;S2=R 

;M3=MI 

S3= (p0F32p32ml ) F32FFFFFG (A) AAAAAB>C<A 

G#G#G#G#DEG# (G) GGGGCDEC 

M4=>DDDDDDE (F) FFFFFGAF EEEE<B>CE (D#) D 

#D#D#D#<AB>C<A 

:S4=S3 

MA=> (Ei64m4) E8. P 32mlG#A8 (B) B8B8>C8<B8 

> (Di64m4) D8. p32mlDC8< (B) B8B8>C8D8« 
SA= (Ei 64m4) E8. p32ml FE8 (G#) G#8G#8F8E8 

(G#i64m4)G#8. p32mlG#A8 (B) B8B8>C8D8< 
MB=» (Ci64m4)C8. p32ml<FAB> (C) C8C8<B8A8 

>(Fi64m4) F8. p32mlFED(C) C8<A8B8>C8« 
SB=> (Fi64m4) F8. p32mlFED< (A) A8A8B8>C8 

(Ci64m4)C8. p32ml<A>CF (A) A8A8G#8F8< 
MC=>B8. A8. F8 E8. G#8. B8 

>(Di64m4) D8. p32ml<G#B>D (Fi64m4) F4p32 
ml<B>DF(G#i64m4)« 
SC=>E8. F8. E8 G#8. F8. E8 

(G#i64m4)G#8. p32ml FG#B> (Di64m4) D4p32 
ml<G#B>D(Fi64m4)« 

MD=»G#4p32ml DFG# (Bi64m4) B4p32ml FG#B> (D 
i64m4 

D2. . ) p32ml<Dr« 
SD=»F4p32mKB>DF (G#i64m4) G#4p32mlDFG# ( 
Bi64m4 

B2. . ) p32ml<Br< 
ME=>»C8. <B8. (Ai32m6A) A2p32ml 

B8. A8. (Gi32m6G) G2p32ml« 
SE=»r2 >D8. C8. <(Bi32m6B) 

B2p32ml >C8. <B8. A8« 
MF=» (Ai32m6A8. ) A4p32ml DEFD8. A8 

(Bi32m6)B8. p32mlBA8(G#) G#8G#8A8B8« 
SF=>» (Ci32m6C8. )C4p32ml <FGAF8. >C8 

(Di32m6)D8. P 32mlDC8< (B) B8B8>C8 (D. ) <D 
32« 
MG=>»E8. D8. (Ci32m6C) C2p32ml 

D8. C8. <(Bi32m6B) B2p32ml« 
SG=»r2 A8. B8. > (Ci32m6C) 

C2p32ml <G8. F8. E8« 
MH=» (Ai32m6) A4. . p32ml AB>CD8EG#E 

(Bi 32m6) B8. p32ml BG#8 (E) E8D8C8<B8« 
SH = » (Fi32m6) F4. . p32ml FG#AB8>CEC 

(G#i32m6) G#8. p32mlG#E8 (C) C8<B8A8G#8< 
< 

MI = »(Ai48m4)A4. . p32ml >C8. (Ei48m4) E4p32 
ml 

(Di48m4)D4. . p32ml G8. (Bi48m4) B4p32ml< 
« 

SI=» (Fi48m4) F4. . p32ml A8. > (Ci48m4) C4p32 
ml < 

(Bi48m4)B4. . p32ml >E8. (Gi48m4) G4p32ml 
<« 

MJ = »»C<B(Ai48m4AA2. A2. . ) A8p32ml<« 
SJ=>»AB> (Ci48m4CC2. C2) C8F8E8D8p32ml< 
<« 

MK=>» (Ai48m4)A2. . . p32ml (Gi48m4G4. . G) 
G4. . p32ml<« 

SK=»» (Ci48m4) C2. . . p32ml (Di48m4) D4. . p 
32ml < (Bi48m4)B4. . p32ml<« 



ML = >» (Ai48nt4A2. . . Al 

Al) A4r4 r2p32ml«< 
SL = »»(Ci48m4C2. . . CI 

CI) C4r4 r2p32ml«« 
:+++bass. ++++++++++++++++++++++++++++++ 
B1=>D4. D(C) C2 <A#4. A#(A) A2 
B2=>D4. D (0 C2 <A#4. A# (A) A4>C#4< 
B3=>D8D8D8D (C) C8C8C8C8 <A#8A#8A#8A# (A) 

A8A8A8A8 
B4=>DDDDDDD (0 CCCCCCCC <A#A#A#A#A#A#A# 
(A) AAAAAB>CD< 

BA=>E>E<BE>E<EB>E 8<E>E<EBEB>E< E>E<BE> 

E<EB>E 8<E>E<EBEB>E« 

BB=>F>FC<F>F<F>CF 8<F>F<F>C<F>CF< F>FC< 

F>F<F>CF 8<A>FEDC<BA< 

BD=>F>FC<F>F<F>CF 8<F>F<F>C<F>CF< A>FED 

C<BAG# FEDC<BAG#F 

BE=AAAAAAAA AAAAAAAA GGGGGGGG GGGGGGGG 

BF=FFFFFFFF FFFFFFFF EEEEEEEE EEEEEG#8. 

BH=FFFFFFFF FFFFFFFF EEEEEEEE EEEEEGFE 

BI=FFFFFFFF FFFFFFFF GGGGGGGG GGGGGGGG 

BJ= AAAAAAAA AAAAAAAA AAAAAAAA AAAAA>AE< 

A 

BL=AAAAAAAA AAAAAAAA AAAAEFGG* (A2) 

(Al) A2 r2 
;+++drums ( bass & snare & synthe ) . + + + 
BD1= GGGGGGGG rGGGGGGG GGGGGGGG rGG 

GGGGG 

SD1 =©1 2 GrrrrrGG rrrrrrGr GrrrrrGG rrG 
rGrGr 
SY1 = (DC<BAGFE)D> r4 (DC<B) A> (DC<BA 

GFE)D> r16r4 (DC<BAGFE) D> 
(DC<BAGFE)D> r4 (DC<B) A> (DC<BA 

GFE) D> r 16 < (GFEDC<BA) G» (GFEDC<BA) 
G> < (GFEDC<BA) G» 

BD2=GrGrGGGG rGGGGGGG G rGG rGG 

G rGGrGGrG 

SD2=GrGrrrGG rrGrrrGr G32G32GGG32G32GGG 
G rrGrGGrr 

SY2=< (GFEDC<BA) G» (DC<BAGFE) D> r8 (DC<B 
)A> <(GFED 

C<BA)G» rl6 (DC<BAGFE) D> r8 (DC<BAG 
FE)D> 

(G)F (G)F (DC<B)A> < (GFE) D> (G) F (G) 
F (DC<B)A> <(GFE)D> (GFE) D < (GFED 

C<BA)G» r16 (DC<BAGFE) D> (GFE) D < (G 
FEDC<BA)G» rl6 

BD3=GrGGrGGr GGrGGrGG G rGGGGGG rGG 

GGGrG 

SD3=GrGGrrGr GGrrGrGG G32G32GGGGGGG rrG 
rGGrr 

SY3=< (GFEDC<BA) G» (GFE) D < (GFEDC<BA) G>> 
rl 6 < (GFEDC<BA) G» 

(GFE)D < (GFEDC<BA)G>> rl6 < (GFEDC<BA 
)G» (GFE)D <(GFE)D> 

(G) F (G) F (GFE) D (GFE) D (GFE) D (DC<B 
)A> (DC<B)A> (DC<B)A> (DC<BA 

GFE)D> r 1 6 < (GFEDC<BA) G» (GFE) D < (G 
FEDC<BA)G» r 16 
BD4=G rGG rGG r GG rGG 

rGG G rGGGGGG GGGGrGGG 

SD4=G32G32GGG32G32GGG32G32G GG32G32GGG32 
G32GGG G32G32GGGGGGG GGGGrGGG 
SY4=(G)F (G)F (DC<B)A> < (GFE) D> (G) F (G) 
F (DC<B) A> < (GFE) D> (G) F (G) F (DC<B) A> 

< (GFE) D> (G) F (G) F (DC<B) A> < (GFE) D> 
(G)F (G)F (DC<B)A> < (GFE) D> (GFE) D 

(G)F (G)F (GFE)D (GFE) D (GFE) D (DC<B 
)A> (DC<B)A> (DC<B)A> (DC<B) A> 

<(GFE)D (GFE)D (GFE) D (GFEDC<BA) G» 
(GFE)D <(GFE)D> (GFE) D 



BDA=rrGGrGGr rrGGrGGG 
SDA=GrGGrrGr GrGGrGGG 
SYA= (DC<BAGFE)D> (GFE) 
(GFEDC<BA) G> 

(DC<BAGFE)D> (GFE) 
<B)A> (GFE)D (DC<B)A> 
(DC<BAGFE)D> (GFE) 
(GFEDC<BA) G> 

(DC<BAGFE)D> (GFE) 
<B)A> (GFE)D (DC<B)A> 
BDB=rrGGrGGr rrGGrGGG 
GGGGG 

SDB=GrGGrrGr GrGGrGGG 
GrGGG 

SYB= (DC<BAGFE) D> (GFE) 
(GFEDC<BA) G> 

(DC<BAGFE)D> (GFE) 
<B)A> (GFE)D (DC<B)A> 



rrGGrGGr rrGGrGGG 

GrGGrrGr GrGGrGGG 

D (DC<BAGFE)D> rl 6 

D (DC<BAGFE)D> (DC 

D (DC<BAGFE)D> rl6 

D (DC<BAGFE)D> (DC 

G rGGGGGG GGG 

G32G32GGGGGGG GGG 

D (DC<BAGFE)D> r1 6 

D (DC<BAGFE)D> (DC 
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™gg 



(G)F (G)F (GFE)D (GFE) D (GFE) D (DC<B 
)A> (DC<B)A> (DC<B)A> (DC<B) A> 

<(GFE)D (GFE)D (GFE) D (GFEDC<BA) G» 
(GFE) D (DC<B) A> < (GFE) D> 
BDE= GrrrrrGr Grrrrrrr GGrrrrGr Grr 
rrrrr 

SDE=§14 rrrrrrrr Grrrrrrr rrrrrrrr Grr 
rrrrr 
SYE=r2 

(DC<BAGFE)D> r4. 

r2 

(DC<BAGFE)D> r4. 
BDF=GrrrrrGr Grrrrrrr GGrrrrGr GrrrrrGr 
;SDF=SDE 
:SYF=SYE 

BDH=GrrrrrGr GrrrrrGr GrGrGrGr G rG 

GGGGG 

SDH=rrrrrrrr Grrrrrrr GrGrGrGr G32G32GG 
GGGGG 
SYH=r2 

(DC<BAGFE)D> r4. 

(DC<BAGFE) D> (DC<BAGFE) D> (DC<BAGFE) 
D> (DC<BAGFE)D> 

(G)F (G)F (GFE)D (DC<B) A> (DC<B) A> < 
(GFE)O (GFE)D (DC<B) A> (DC<B) A» 
BDI=GGGGGGGG GGGGGGGG GGGGGGGG GGGGGGGG 
SDI=rrGrrrGr rrGrrrGr rrGrrrGr rrGrrrGr 
SYI=r8 (DC<BAGFE)D> r8 (DC<BAGFE) D> 

r8 (DC<BAGFE)D> r8 (DC<BAGFE) D> 

r8 (DC<BAGFE) D> r8 (DC<BAGFE) D> 

r8 (OC<BAGFE)D> r8 (DC<BAGFE) D> 
BDL=GGGGGGGG GGGGGGGG GGGGG rGG Grr 

rrrrr 

rl rl 
SDL=rrGrrrGr rrGrrrGr GGGrG32G32GGG Grr 
rrrrr 

rl rl 
SYL = r8 (DC<BAGFE)D> r8 (DC<BAGFE) D> 

r8 (DC<BAGFE)D> r8 (DC<BAGFE) D> 

<(GFE)D> (GFE)O < (GFEDC<BA) G» (G) F 
(G) F (GFE) D (DC<B) A> < (GFE) D> 

(GFEDC<BA)G> r4. 

rl rl 



i£x-£ 



<FM VOICE No. 65> 
MD 0-5- 1 • 2-10- 1- 
CR 1- 2- 15- 4- 
<PSG VOICE No. 1 1> 
32-24- 0-32-on -off- 
<PSG VOICE No. 14> 
32- 16- 1 1- 12-off -on • 
<PSG VOICE No. 12> 
32- 18-11- 14-off-on ■ 
<PSG VOICE No. 15> 
32- 12- 0- 12- on -off- 



2- 12- 
1- 10- 



1 off- on 

■ of f • on 



off 
off 



/ j— 1x^.3.— V^Ou^ Music a*k 



BYWitt 



TO MAKE 

THE END OF BATTLE 



©B*77;i/=iA 



£5lsZH>mztS.&0)ti\ ^XZ{%-otzMi\ 
v\-ftX*7(DVUzmiZU55£ZZo mom 



FMl =A0. AA. Al . A2, A3. A4. A5. A6. A7. AB. A4, A5 

, A6. A8. AX, AC. Al 1. A12. AD. A13/2. AA, Al. A2. A 

3. A4, A5, A6, A7, AB. A4, A5. A6, A8, AE, A I 4 

FM2 =A0, Z. AB, Al , A2. A3, A4, A5. A6, A7, BB, A4. 

A5. A6. A8, BC, Al 1 , Al 2, AD, A13/2, AA, Al , A2. A3 

. A4. A5, A6. A7. BB, A4, A5. A6. A8, AE, Bl 4 

FM3 =C0. CA. CI, CV, C2/3, C3. C4/2, C5. C6, C7. C 

B. C4/2, C5, C6, C8. CC, CI 1. C12, CD. C13/2. CA. C 

1 . CV. C2/3, C3, C4/2, C5. C6, C7. CB. C4/2. C5, C6 

.C8. CE, AI4 

FM4 =C0. Z. CA. Dl . CV. D2/3. D3. D4/2. D5, D6. D7 

.CB, D4/2. D5. D6. D8. CC, Dl 1 . Dl 2, CD. C13/2, CA 

. Dl. CV. D2/3. D3, 04/2, D5. D6. D7, CB. D4/2. D5. 

D6, D8, CE, B14 

FM5 =E0. El, E2/3. E3. E4. E5. E4. E5, E4. E5, E4. 

E8. El 1A, El IB. El 1A. El 1C. E13/2, El. E2/3, E3, 



E4. E5, E4, E5, E4. E5, E4. E8, El 4 

FM6 =F0, El. E2/3, E3, E4. E5, E4, E5. E4. E5. E4. 

E8. El 1A, El IB, El IA. El IC, E13/2. El, E2/3. E3. 

E4. E5, E4, E5. E4. E5. E4, E8. El 4 

FMR =R0. Rl/4. R2A/3. R2B. R2A/3, R3. Rl/7, R5, 

Rl/7, R7. Rl/7. R5, Rl/7, R10, Rl/7, R12. R13/4, 

Rl/4. R2A/3. R2B, R2A/3, R3. Rl/7. R5. Rl/7. R7. 

. Rl/7, R5, Rl/7, R10, R14 

FM7 = 

FM8 = 

FM9 = 

PSG1=P0. PI/4. P2A/3. P2B. P2A/3, P3, P4/7. P5, 

P4/7. P7. P8/7. P9. P8/7, P10. P8/7. PI 2. PI 3/4. 

PI/4. P2A/3. P2B. P2A/3, P3. P4/7. P5, P4/7. P7. 

, P8/7. P9, P8/7, P 10, PI 4 

PSG2=S0, SA. CI. SV. S2/4, C4/2. C5, C6. C7. SB. C 

4/2. C5. C6. C8, SC, CI 1.C12. SD. SI3/2, SA, CI.S 

V, S2/4. C4/2. C5. C6, C7, SB. C4/2. C5. C6. C8. SE 

. A14 

PSG3=S0, SA, X, Dl , SV. T2/4, D4/2. D5, D6. D7. SB 

.D4/2, D5, D6, D8. SC. Dl 1 . Dl 2. SD, T13/2. SA. Z. 

Dl, SV, T2/4, D4/2. D5. D6. D7, SB. D4/2. D5. D6. D 

8. SE, B14 

SCC1 = 

SCC2= 

SCC3 = 

SCC4= 

SCC5= 

A0=T212R4. L8 

C0=T212R4. L8 

E0=T212SI4V14O2R4. L805 

F0=T212633VI3O2R4. L8 

R0=T212Y22. 87Y23. 64Y24. 1 03VB15VS1 4VM1 5VH 

12BI6B16HSM4 

P0=T212L8O4626V12RA4 

S0=T212R4. L8 

Z=Z31 

X=Z15 

RR=R1 

AA=669V1504 

A8=©69V1404 

CA=§4V1205 

SA=6 16V 1004 

A1=EFGA4. <A4>C+DEE4EDER1R1 

C1=>EIG1LI6D+ED+ED+ED+E>D+ED+ED+ED+E<L8E 

FG+FEFG+A< 

D1=A1>C+1L16<G+AG+AG+AG+A>G+AG+AG+AG+A<L 

8AB->C+<B-AB->C+D< 

E 1 =AAAAAA>E<AAA>E<A>G<A>F<AAA>G<A>F<A>E< 

A>C+<AB->C+<B-AGB- 

R1=B4HSM4B4HSM4 

P1=S26VI2R4A4R4A4 

A2=>C+<AB-GAFGEB-GAFGEFDC+DEFGAB->C+EC+< 

B->FC+<B-R4 

CV=S12V1 105 

SV=@28VI103 

C2=V12E. R. >(E4VI1E4V10E4V9E4V8E4V7E4)RV1 

1< 

D2=VI2<A. R. >(A4V11A4VI0A4V9A4V8A4V7A4)RV 

II 

E2=A4R2>A4AE<ADA4>C+E< 

S2=V12E. R. > (E4V1 IE4V1 0E4V9E4V8E4V7E4) VI 1 

R< 

T2= V I 2<A. R. > (A4 V I I A4V 1 0A4V9A4 V8A4 V7A4) V 1 

IR 

R2A=B4. HSM8B8HSM8B8B8 

R2B=B4. HSM8B8HSM8HSM8HSM8 

P2A=827V1 0AAAS26VI 2A4A4R 

P2B=@27VI 0AAAS26V1 2A4AAA 

A3=<G2. AB->C+2. EFGFEFGAB->C+EE4. F4G4< 

C3=V12E. R. >(E4V11E4) V10EV1 1C+C+C+C+DDEE< 

VII 

D3 = V12<A. R. >(A4V11A4) V10AV1 lAAAABB>C+C+< 

VI 1 

E3=A4R2>A4<A4>A4<B4>C+4< 

R3=B8HSM8HSM8HSM8HSM8HSM8HSM8HSM8 

P3=R826V1 2AAAAAAA 

A4=>FEC (D 1 ) D<A>CDCFEC (D I ) D<AGFE 

C4=>DC<G (A2) A>A4G4F4E4< 

D4=AGE (F2) F>F4E4D4C4< 

E4=>DDDDDDDDDDDDDDDDCCCCCCCCCCCCCCCC< 

P4=e27VI0AAe26V12Ae27V10AAA§26V12Ae27VI0 

A 

A5=F4. D4. F4G4. E4. G4A4. F4. D4E4. G4. B-4 

C5=>D4. <B-4. >D4E4. C4. E4F4. D4. <A4A4. >E4. G 

4< 

D5=B-4. F4. B-4>C4. <G4. >C4D4. <A4. F4E4. >C+4 

. E4< 

E5=B-B->FB->D<B-FB-CCG>CEC<G>C<DDFA>D<AF 

D<A>AEC+<AAAA 

R5=B4HSM4HSM8HSM8HSM8HSM8 



P5=e27V10AA§26V12AS27V10Ae26V12AAAA 
A6=A1>DEFGAGFEG4. E4. C4<G4. >C4. E4< 
C6=>DKA2>D2E1C1< 
D6=AIF2A2>CKG1 

A7=>FD<AFDA>DFEC<GECG>CE<DFA>C+DFA>C+D1< 

< 

C7=>FlElDlD4C+4<B4>C+4< 

D7=>D 1 CI D 1 D4C+4<B4>C+4< 

R7=B8HSM8HSM4HSM8HSM8R8HSM8 

P7=§27VI0A§26V12AA4AARA 

AB=§80V15O4 

BB=@80V14R32O4 

CB=©4V1105 

SB=S21V10O4 

A8=>FD<AFDA>DFEC<GECG>CE<E-4. E-G4. E-16G1 

6B-4. G16B-16> (E-4. ) E-16. < 

AX=R32 

C8=>F1E1 (B-l)B-K 

D8=>D1C1 (Gl)GK 

E8=B-B->FB->D<B-FB-CCG>CEC<G>C<E-E-B-E-G 

E-B-FGE-B-E->E-<E->G<E-< 

R10=B8Y23. 58Y24. 83HSM8Y23, 64Y24, 1 03HSM8Y 

23, 58Y24. 83HSM8HSM1 6HSM1 6HSM1 6HSM16Y23. 5 

2Y24. 63HSMI6HSM16HSM16HSM16Y23. 64Y24, 103 

P8=e27V10AAe26V12A4®27V10AA626V12A4 

P9=S27V 1 0AA626V 1 2A4AAAA 

P 1 0=S27V 1 0A626V 1 2AAAL 1 6AAAAAAAAL8 

AC=S79V1504 

BC=@79V1404 

Al 1 =>A2DFGA4. G4FG4>D4. <A4GF4E4. F4. G4. < 

CC=S10V14O4 

SC=®16V1 104 

CI 1 = (Al)AlB-IAl 

D11 = (F1)F1F1E1 

E 1 1 A=>DD>D<DGA>CD<FF>F<FFF>F<FB-B->B-<B- 
B-B->B-<B-AA>A<A 

El IB=>G<A>A<A< 

El 1C=>AEC+<A< 

Al 2=>A2DFGA4. G4FG4> (D2) DE4D4D2C+2« 

C12=>FFFFFFFFFFFFFFFFB-B-B-B-B-B-B-B-AAA 

AAAEC+< 

D12=>DDDDDDDDDDDDDDDDFFFFFFFFEEEEEEC+<A 

R12=B4HSM4B8B8B8B8 

PI2=827VI0AA626VI2A4R2 

AD=©76V1405 

A13=>DFADFADFADFAE-GB-GDFADFADFADFACCEG< 

CD=S 16V 1304 

C13=FA>D<FA>D<FA>D<FA>D<GB->D+<B-FA>D<FA 

>D<FA>D<FA>D<GG>CE< 

E13=>DR4DR4> (C) D<RDFDE-E-GB-DR4DR4> (C) D< 

RDFDCCEC< 

SD=S29V1 105 

S13=L4F>D<AF>D<AG>D+<F>D<AF>D<AG>C<L8 

T13=RL4AF>D<AF>D<B-B-AF>D<AF>D<GL8>E< 

R 1 3=B8R4B8R4HSM4B8B8HSM8B8B8B8HSM8B8 

P 1 3=R627V 1 0AARAAS26V 1 2A4R4A4R4A4 

AE=S6V1304 

A14 = >DR4DR4DM1 (D4. PI) C+4<R1. P0 

B14=AR4AR4AM1 (A4. P1JG+4R1. P0 

CE=624V1305 

SE=S16V12O3I30M5 

E14=>DD>D<DGA>CM1 (D4. P1)C+4«P0 

R14=HSM8B8B8HSM8B8B8HSM8HSM8B8 

P14=626VI2A4RA4RAA4 
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LIST t&Efo-PX—X 
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1 10 

120 

130 

140 
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160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

LSE 

400 

LSE 
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450 
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I), 
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*I) 
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540 

550 

560 

30 
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DEFINT A-Z:DEFSNG V 

DIM DX (29, 1 ) . DY (29, 1 ) , WX (29) , WY (29) 

DIM VX (29) , VY (29) , SX (8) . SY (8) 

AM=30:SV=4 

SCREEN 0:WIDTH 40 



COLOR 15, 1, 1 : KEY OFF 

print "i :.*-*• -y , v im<»r 

PRINT "2:7031" 

PRINT 

INPUT "VWsfi ";IN 

IF IN<>1 AND IN<>2 THEN 190 

SCREEN 5:C0L0R 15, 0, 0:CLS 

OPEN "GRP:" AS #1 :GOSUB 850 

SET PAGE 0, 0:CLS:PSET (0,204) 

PRINT #1,'^>H?i; 13 Mi WW 

K=0:GOSUB 570:M1=I 

CLS:PSET (0,204) 

PRINT #1,"V/H3*y 15 Mr fl^'IM" 

K=1 :GOSUB 570:M2=I 

IF M1=M2 THEN 420 

T=-(M1>M2) :IF MKM2 THEN SWAP M1.M2 

FOR 1=0 TO 29 

WX(I)=-1 :WY(I)=-1 :NEXT I 

V0=M1/M2:V2=0 

FOR 1=0 TO M2-1 

WX(INT(V0*I))=DX(I,T) 

WY(INT(V0*I))=DY(I, T) 

NEXT I 

FOR 1=0 TO M1-1 

IF WX(I) =-1 THEN 

DX(I, T)=WX(I) 

IF WY(I)=-1 THEN 

DY(I. T)=WY(I) 

NEXT I 

FOR 1=0 TO M1-1 

VX(I) = (DX(I, 1)-DX(I,0))/AM 

VY(I) = (DY(I, 1)-DY(I.0))/AM 

NEXT I 

PG=0:CLS:SET PAGE 0, 1 :CLS 

FOR 1=0 TO AM 

SET PAGE PG, PG XOR 1 :CLS 

PSET (DX (0, 0) +VX (0) * I, DY (0, 0) +VY (0) * 
15 

FOR J=1 TO M1-1 

LINE - (DX (J, 0) +VX (J) *I, DY (J, 0) +VY (J) 
, 15 

NEXT J 

PG=PG XOR 1 :NEXT I 

SET PAGE PG, PG 

IF STRIG(0) +STRIG0) =0 THEN 550 

IF STRIG(0) +STRIG0) THEN 560 ELSE 2 

X=0:Y=0 



DX(I, T)=DX(I-1. T) E 
DY(I,T)=DY(I-1, T) E 



580 IF STRIG(0) +STRIG(1) =0 THEN GOSUB 73 

0:GOTO 580 

590 PSET (X, Y), 7:DX(0, K)=X:DY(0, K)=Y 

600 IF STRIG(0) +STRIG(1) THEN 600 

610 FOR 1=1 TO 29 

620 X0=X:Y0=Y: GOSUB 730 

630 IF X=X0 AND Y=Y0 THEN 660 

640 LINE (DX(I-1, K),DY(I-1. K))-(X0, Y0), 7 

, , XOR 

650 LINE (DX (1-1, K) , DY (1-1. K) ) - (X, Y) , 7, , 

XOR 

660 IF STRIG(3) + ( (PEEK (&HFBEC) AND4) =0) T 

HEN 720 

670 IF STRIG(0) +STRIG0) =0 THEN 620 

680 LINE (DX (1-1, K) , DY (1-1, K) ) - (X, Y) . 15 

690 DX(I, K)=X:DY(I, K) =Y 

700 IF STRIG(0) +STRIG0) THEN 700 

710 NEXT I 

720 PUT SPRITE 0, (0,212) : RETURN 

730 PUT SPRITE 0, (X, Y) , 1 5, 

740 IF IN=2 THEN 780 

750 S=STICK(0) OR STICK (1) 

760 X=X+SX(S) *SV:Y=Y+SY(S) *SV 

770 GOTO 790 

780 A=PAD(12) :X=X+PAD(13) :Y=Y+PAD(14) 

790 IF X<0 THEN X=0 

800 IF X>255 THEN X=255 

810 IF Y<0 THEN Y=0 

820 IF Y>203 THEN Y=203 

830 RETURN 

840 GOTO 840 

850 B$="":FOR 1=0 TO 7 

860 READ A$:B$ = B$+CHR$ (VAL ("&h"+A$) ) 

870 NEXT I:SPRITE$ (0) =B$ 

880 FOR 1=0 TO 8: READ SX(I) :NEXT I 

890 FOR 1=0 TO 8: READ SY(I) :NEXT I 

900 RETURN 

910 DATA 40, 30. 3C, IE, 1C, 0A, 00, 00 

920 DATA 0, 0, 1, 1, 1, 0, -1, -1, -1 

930 DATA 0, -1. -1, 0, 1, 1, 1, 0, -1 



Kffijffir^M 


(DX (A. 0). DY (A. 


0)) 


Stfttt©!*©*'-* (A=0~29) 


(DX(A. 1). DY (A. 


0) 


mtfc®&e>7 t -$ 


(WX () . WY () ) 




ftmm 


(VXO.VYO) 




&<D&W)M 


(SXO.SYO) 




v 3 -r 7. t 4 «j $ owmm 


AM 




T — * — v 3 >©*ffl#*3 


SV 
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fS-LT-farcr^ 7^7^ 7*—? 

fc^-C^fcOJ* h 1 ) zft£ 
<3^U*hfcflt£*£1*ttA:ftL 

COPYt^n £f$o T 3 fc°-f So - 



<7)Pg s 0>«i:CA^<i:#(zU f j:- 

lt, fffu*££»<„ ::n- 

T# «fc 7 „ ■$■£ T*SCREEN5<7)'<— 
v K^fLTWcCT)^— v 1 
CftJStf 5 =t 1 IZ&& L T -WlM 

\(*—? 1 ) 



COPY^T-J 



h 3 tf 

Ji/L & ^ <* «b i SI <li>oa\, 

<7)T\ •<— v 2 £ •<— v 3 [Zfo h 
T s JE5"*— $>&2 % 3, 2, 3 

£ £ ^ o T * «fc •? COPYi^T'li, 

&T'#-2> 'TPSEr^l^^^-^ 
CQPYXtf)** L 'J Cft-lt* d £ e 



«fc Z\<Dl&k[t1i7-u- K 4 £1£ 
r)T*-3fc(t^ Otlf$IE-r?>o 
fLT^-y lZ7>^ATfh 

h 5 fc 
coPYt^i, £ c# < mw% 

l\ BASICTlSfflpTli^COPY^^- 

x#- k *m 1 % -g- fc COPY^^ 

S 1 (Z*C0PY^^-C7)T^T ! " 



List 1 



List 2 



List 3 



10 SCREEN 5: SET PAGE 0,0 
20 COLOR 15, 4.0:CLS 
30 GOSUB 1000 
00 GOTO 100 

.000 CIRCLE (64. 64). 32. 1.3.1 
.010 LiNE(32.64)-(95.64),l 
020PAINT(65.65).10. 1 
030 C1RCLE(48.48),24. 10 
040 PAINT(48,48),10 
050 C1RCLE(48,48).24. 1 
060 LINE(25.40)-(16. 48), 1 
070 LINE -<25. 56). 1 
080PA!NT(17.48),9, 1 
090 CIRCLE(48. 48), 2. 1 
100 PAIN'T(48,48),1, 1 
110LINE(62,96)-(62. 107), 1 
20 LINE -(54, 107), 1 
30 LINE -(54, 111). 1 
40 LINE -(65. Ill), 1 
50 LINE -(65,96), 1 
60 PAINT(63,97),9, 1 
70 RETURN 



40 GOSUB 2000 

2000 COPY (0,0)-(l 27, 111) TO (128,4) 

2010 LINEU82. 101)-(193. 115). 4. BF 

2020 LINE(180,97)-(172. 105), 1 

2030 LINE -(166. 99), 1 

2040 LINE -(164, 101). 1 

2050 LINE -(172. 109). 1 

2060 LINE -(182, 99). 1 

2070 PAINT(180.99).9. 1 

2080 LINE(210. 95)-(217, 102). 1 

2090 LINE -(210, 109). 1 

2100 LINE -(208. 107). 1 

2110 LINE -(213.102),! 

2120 LINE -(208. 97), 1 

2130 PAINT(210.97),9, 1 

2H0 RETURN 



List 4 



10 SCREEN 5: SET PAGE 1, 1 

50 SET PAGE 0.0:CLS 

60 COPY (0,0)-(127, ill). 1 TO (64.32) 

70 FOR 1=1 TO 100: NEXT I 

80 COPY (128.0)-(255. 111). 1 TO (64.32) 

90 FOR 1=1 TO 100:NEXT I 

100 GOTO 60 



50 SET PAGE 0, 2:CLS:SET PAGE 0.3:CLS 
60 COPY (0.0)-(127. 111). 1 TO (64, 32), 2 
70 COPY (128.0)-(255. 111). 1 TO (64.32), 
80 SET PAGE 2:F0R 1=1 TO 100:NEXT 
90 SET PAGE 3: FOR 1=1 TO 100: NEXT 
100 GOTO 80 



List 5 



'HIYOKO - 




20 COLOR 15,0.0:CLS 

21 0PEN"grp:" AS SI 

22 PRF,SET(0. 128):PRINT#1. 

23 CLOSE 

25 0PEK"«rp:" AS 11 

50 SET PAGE 0.0:COLOR 15,4.0:CLS 



70 ON RND(1)*20 GOTO 90.100 

80 COPY(0, 128)-(47. 135), 1 TO (RND(1)*208, RND(1)*204). ,TPSET:G0T0 70 
90 COPY (0.0)-(127. 11D.1 TO (RND(1)*128. RND(1)*100), . TPSF.TrGOTO 70 
100 COPY (128.0)-(255. 11D.1 TO (RND(1)*128. RND(1)*100), .TPSET:G0T0 7 
LINEU82, 101)-(193. 115),0,BF 
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■I" 5* Y/tit'Oittil'L 



1 COPYXIUB^— K<n«*ww) 



2. 



COPY <77"f^*l>[T0 <77"fJU£2>3 
) COPY *B:FILE.DAT* TO "A:FILE.BAK* 

copy (<y-xg*i >)-«y-*&«2>)[,<v-x^— ;»] to 

) COPY(0,0)- (255,211), 3 TO (0,0),2,XOR 

copy «y-xfflii>)-Ky-xjffl*2>)[.<v-^'<-$>>] to 

?77-f7?f- ?OiSS£7 7"f.<M::-fc-7'-fi>,, t«?i"7'77-( 
•y ? x- ? tf>COPYM5t-tz- 7'" £ 
) COPY(O.O)- (255,211),! TO *FILE.DAT" 



2 >)[,<*/-*'<--$»] TO 



COPY«7-*fls»l»-(<7- 

<l$iJs> 

^77<7?f-? fclSHSStC AftS, 
) DIMA%(100) : COPY (0,0)- (7, 7) TO A% 



COPY <77-1'''l' ; S>,[<77ip]>] TO «x-r7sx-i-^— >3>^S>) 
[, [<-rV7x-f*-: > 3 >-<-S»],[<|(iaj«W^>]] 
COPYB^T-b-7'?tv/-zx-^^ ^771" •yi'iSSJiCOfiScoSlB'fi-n 
- KT-So 
) COPY *F!LE.DAT", 1 TO (128,0), 1, AND 



COPY <KW6>,[<*I*I>] TO «f-fXf^-->3>g|» 
[, [<xV*x**-«>a >*<-*>], [<M®m*>]] 
COPYJf£&T"tz-7'$ MZ7--9 £, ^57-f -y ^a®±OTffiS«Oli^ft- n 

- Ft*. 
) COPY A# TO (0,0) 

COPY <E?>J*> TO <77"fJUS> 

1E51J& 7 7- -f MZ-t>—-/T &,. 
) DIM A%(100) : COPY A% TO "TEST" 

COPY <77-f^«> TO <i£5i]£> 

7 7"t';UA v 'bi55IJ : &-a-b"r-5)o 7 7"rMi3,7OT7J>£TfF-pfcfc(7) 



(SUN, -^-eizfiji&ll^fti:* 

bttsbxMzo wmmM=5-<nm 

<^<7)[2TPSET<'<b^T\ #(7) 

t><7>ij{i:^*ri£bftiv7rt\ ti 

It £'^?j l- «fc o T ttfc fc L *> ^ 
ztbX'£Z>(nx\ m&F.cnfoZA 

C£rfrSC£*r#l.*Tt>«J: <*>***> 
ftlvMJxiilgl-llfirCfcfc^tfv" 
7s h 5<7)TPSET^fib<7)HSJIIIt 
: f£S#&;lT#*ft£')LT$ 



O 



4fl«W*//A^-A 



«5,6C0%&OT<7J[S]>(S 

tE±Jfh^Y 

1 *±/rc>±T 

3 *TFfr*b*± 



>Y$ft75frc7)fli(;SiII?*vS>c 



SCREEN5*fc(J7<7>£# n=2 
SCREEN 6 <T>£$ n=4 

SCREEN 8 )>jm<nt£ n=1 

m=INT(* Fv h&X$£ V-y MBfc-rn+ 5 ) 



-INT((m+1)-r2) 
SE5IJC7)tS^--INT((m+3)^4) 
f6*MHaBffl<0*^"INT((m+ 7) 4-8) 

SCREEN5OT (0,10)- (20,50) SrK5lJ«:A*lfcl**&, 

N=2 : M=INT((20-0+l) • (50-10+D/2+5) : PRINT (m+1)¥2 

C J: ») 218*<*«)<b*U DIM A%(217)<7U -) (CStfSf W&fcu:: £(::£%. 



C£n t-f 5fe scfca fcr-3ti*/rtfc<&(TC**)Si: Lfcif£\ 

AND C AND SC 

OR C OR SC 

XOR NOT(C)ANDSC 

PSET C 

PRESET NOT(C) 

TAND C=0CDfc#, C=SC ?<7>ffe(7)i & C AND SC 

TOR C=oco£#, c=SC -?<7>teco££, corsc 

TXOR C=0<7)t#, C=SC *<W1fe<7>£2\ NOT(C) ANDSC 

TPSET C=0<7>£#, C=SC -f tfM&OT £ # , C 

TPRESET C=0tf)£#, C=SC ¥<Bft0)fc#, NOT(C) 
££*. fflfg&Jtfk&ttPSEftmV. 




W.z±r>XfcWBfr>f—Mtt> 

l7<7);b# Nl bft^&(7)[lft^TL£ 
1 tZo —Jfc?7 7<-^7-^ 
ffiyifrhCOPYTZCDZ, TPSET 
(7)COPY3tTt;^T'(7)P#^#^ 
T^5 turbo RT'fFofz<7)T\ (J 
o#*Jt*oT* MSX2 N 2+^turbo 

rc^zso^e- KT-ii, 1"-^c"<gl^ 
y— A<7)ju-;i4i s 77— v;u* 



(=&*£« ^tLTLtfb<SfT= 

T'#ft<ft& frfrTA^acii 

ft < ft -O tz b tf—l^—J \*-o * 

tl3.X'\,t®mbSZ^tzr>Xh\.^\ 
o X ^ < A,^ftt E\ 3 (7)7 b— K 
m b£A,Z:'A,&< % Z> (7) tz z 



*>xitozmz%ts btef&tf^ 

Thtltt\.\ 

a 77 x(7)t1lms^^ a $ *<& < 
iz-r^i-ti, ^t c p(jt(7)+- 

_b#+ tt±<7) * - * ^ < 5 > ^'ct 
<#LT7JPS ; §rOttTL^< :ti 

Tizte < fc o fc i: # l-«T-£ ft 
< ft *„ 

*Wfty-A*ftt^ mmmtf 
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\Y^V 






10 ' t" 3 yt' 3 y hW Y-k 
20 A=RND(-T1ME) 
30 SCREEN 5, 2: SET PAGE 1.1 
40 COLOR 15,0,0:CLS 
50 OPEN "GRP:" AS 51 
60 DIM A%(18).X(15).Y(15).P(23) 
70 ' gosub 5000 
80 FOR J=0 TO 8 STEP 8 
90 FOR I =0 TO 18: READ A% ( I ) : NEXT I 
100 COPY A%.0 TO (J.0) 
110 NEXT J 
120 GOSUB 1200 
130 SET PAGE 0,0 

140 A$="":FOR 1=0 TO 31:AS=AS+CHRS(VAL("&h"+MIDS(" 
0101030307PF3F1F0F1F1E3C3020000000008080C0FEF8F0E0 
F0F078 18080000", 1*2+1, 2))) : NEXT I : SPRITES (0)=A$ 
150 A$="":FOR 1=0 TO 31 :AS=AS+CHRS(VAL("&h"+MID$(" 
030FIF3F7F7FFFFFFFFF7F7F3F1F0F03C0F0F8FCFEFEFFFFFF 
FFEFEFCF8F0C0". 1*2+1. 2))) : NEXT 1 :SPRITES(1)=A$ 

W/Y Mbf-f 

210 CLS 

220 LINE(0,0)-(255. 191), 15, BF 
LINE(8.8)-(247. 183),0,BF 
240 FOR 1=0 TO 15:X(I)=128:Y(I) =64 : NEXT I:P=0 
250 X=8:Y=8:XX=0:YY=0:SC=0:T1=100:T2=200:CT=10 
260 PRESET(16. 192) :PRINT#1. "SCORE:" ;SC 
270 PRESET(128. 192) :PRINT#1. "HI-SCORE:" ;HS 
280 EX=!NT(RND(1)*224)+8:EY=INT(RND(1)*160)+8:EC=2 
0:ES=20 

290 SX=INT(RND(l)*224)+8:SY=INT(RND(l)*160)+8 
300 PUT SPRITE 0, (SX, SY), 11.0 
310 PUT SPRITE 1, (EX,EY),7, 1 

400 ' mv H'J 

410 IF MF THEN MF=MF-1:1F MF=0 THEN GOSUB 1200 ELS 

E 500 

420 A=STICK(0):IF A=0 GOTO 500 

430 IF A<3 AND A=8 THEN YY=YY- 3 

440 IF A>3 AND A<7 THEN YY=YY+. 3 

450 IF AM AND A<5 THEN XX=XX+ 3 

460 IF A>5 THEN XX=XX- 3 

470 IF ABS(XX)>16 THEN XX=SGN(XX)*16 

480 IF ABS(YY)>16 THEN YY=SGN(YY)*16 

500 IP ABS(XXX.2 THEN XX=0 ELSE XX=XX-. 2*SGN(XX) 

510 YY=YY+. 5 

520 X=X+XX:Y=Y+YY 

530 IF X<8 THEN X=8:XX=ABS(XX) 

540 IF X>240 THEN X=240:XX=-ABS(XX) 

550 IF Y<8 THEN Y=8:YY=ABS(YY*. 9) 

560 IF Y>176 THEN Y=176:YY=-ABS(YY*. 9) 

600 P=(P+1) AND 15 

610 COPY(8,0)-(15,7).l TO (X(P). Y(P)), , TPSET 

620 X(P)=X:Y(P)=Y 

630 COPY(0,0)-(7,7),1 TO (X.Y),, TPSET 

700 ' -H iVl 

710 EC=EC-1:IF EC GOTO 800 

720 EC=ES 

730 EX=EX+SGN(X-EX) :EY=EY+SGN(Y-EY) 




:CT=CT+1 
:ES=ES-1:IF ES<1 T 



740 PUT SPRITE 1, (EX.EY). 

800 ' t* IvJi) nyf-f 

810 IF MF GOTO 900 

820 A=X-EX:IF A<-4 OR A>12 GOTO 

830 A=Y-EY:IF A<-4 OR A>12 GOTO 

840 PLAY"O1S0M3000T200L16CC# 

850 MF=CT:FOR 1=0 TO 3:COLOR=(I+8,0.0. 7) :NEXT 

900 ' i'J Mil mH 

910 A=X-SX:IF A<-8 OR A>16 GOTO 

920 A=Y-SY:IF A<-8 OR A>16 GOTO 

930 PLAY"S0M1000T200L16O4CO5CO6CO7CO4GO5GO6GO7G 

940 SC=SC+1 

950 PRESET(64, 192) :PRINT#1, SC 

960 SX=INT(RND(l)*224)+8:SY=INT(RND(l)*160)+8 

970 PUT SPRITE 0, (SX,SY).11.0 

1000 - I***/*? & -y^ij 3 ^ Uvl 

1010 T1=T1-1:IF T1=0 THEN Tl= 

1020 T2=T2-1:IF T2=0 THEN T2= 

HEN ES=1 

1030 IF INT(Y)=176 AND YY<=0 AND YY>- 5 GOTO 1100 

1040 GOTO 400 

1100 " Y-k t-i\- 

1110 PRESET(92, 96) :PRINT#1, "GAME OVER" 

1120 IF HS<SC THEN HS=SC 

1130 PRESET(200. 192) :PRINT#1, HS 

1140 IF INKEYSO"" GOTO 1140 

1150 AS=INPUT$(1) 

1160 GOTO 200 

1200 ' «*M Mi 

1210 RESTORE 2100:FOR 1=8 TO 1 1 : READ R, G. B:COLOR=( 

i . R. G. B) : NEXT I 

1220 RETURN 

2000 ' fjntf 7-9 

2010 " ?7 

2020 DATA 8. 8. -30464, 153. -26360. -28502, -26232 
2030 DATA -26454,-26232.-26471,-30328.-30567 
2040 DATA -30584.-30584,-30712.-32632,-30720,136,0 
2050 ' Mfa) 

2060 DATA 8. 8, 4352. 17. 4353. 4113. 4369. 4369. 4369, 436 
9.4369.4369,4369,4369 
2070 DATA 4353.4113,4352,17,0 
2100 ' 0-/I- f'-? 
2110 DATA 7,0,0.7.2,0.7,4.0.7,7.0 
5000 " YiH-i) f'"fi taO'x ?aY ik 
5010 • (M) 
5020 RESTORE 5120 

5030 FOR J=0 TO 7: READ AS: FOR 1=0 TO 7 
5040 PSET(I. J), VAL("&h"+MIDS(AS. 1+1. 1)) 
5050 NEXT I: NEXT J 
5060 COPY(0.0)-(7.7) TO A% 
5070 SCREEN 

5080 FOR 1=0 TO 18 :PRINTA%( I > ; : NEXT i 
5100 ' GRAPHIC DATA 
5110 ' 8x8 Size COLOR 0-9. A-F 
5120 DATA 00111100 
5130 DATA 01111110 
5140 DATA 11111111 
5150 DATA 11111111 
5160 DATA 11111111 
5170 DATA 11111111 
5180 DATA 01111110 
190 DATA 001 11 U 
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an 
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±M(D J 7'9\Z o £Anmi\M 

i/V£i/\-5©£jg5£3"5>©£JStt 
iMayrvc o £Ani:isi\TO 

i \ £ I \^>©lEt8gi$©78¥ t«^)T: 
XCfe35-5©"Cs S-t<ulZ0£A 

-<r— e^-a. 

§^icta±Giiz o £An£©£ 

^^■C24S'0^o^o 



-K©jiSi§©«^£msw£ 
ui/M^gizu&ei/Wx ^m&m 

z>ft j t. ,11/ Yfc o"Oi5S< H£ As 

§t^©^s^ i o : feiqi^ l O i fev s^ 
©jtusrisefi©^^^ 

t^AulZM^SV^h 1 *£> 



Tizit«u"cs<o cnicts »± 
SKDI^tf o ©s^fetmu W 

<E>(4+ AB+CDE=FGHI t I/O 
"F&JlW # 1 CUM591 \\ 
w F=0©ftiaC+(A+D©«9-L 

tt F=1©ctSlct. C=9x G=0s 

mu~c«£;nw-5o 



2H^£>fi?^ JSMl ^iii 


WB&hjGOWy^h, 


10 SCREEN0:WIDTH80:KEYOFF 


340 "G 


20 CLEAR200:DIMS:DEFINTA-Z 


350 FOR G=L TO M 


30 ' i=0 


360 IF S(G) THEN 430 ELSE S(G)=1 


40 I=0:S(0)=1:S(4)=1:L=1:M=9:GOSUB100 


370 'H 


50 ' i=l 


380 H=G+K2:IF H=>10THEN 420 


60 FOR N=0 TO 9:S(N)=0:NEXTN 


390 IF SOD THEN 420 


70 G=9:H=0:I=1:S(0)=1:S(1)=1:S(4)=1:S(9)=1:L=2:M=8: 


400 GOSUB550 


GOSUB100 


410 ' 


80 L0CATE5, 21:PRINT"1K / -JiH" ;C0;" W)" :END 


420 S(G)=0 


90 'A 


430 NEXTG 


100 FOR A=L TO M-l 


440 S(F)=0 


110 IF A=4 THEN GOTO 530:ELSE S(A)=1 


450 S(E)=0 


120 "B 


460 NEXTE 


130 FOR B=A+1 TO M 


470 S(D)=0 


140 IF S(B) THEN GOTO 510 ELSE S(B)=1 


480 NEXTD 


150 'C 


490 S(C)=0 


160 K1=0:CD=4+A+B 


500 S(B)=0 


170 IF CD=>20 THEN K1=2:C=CD-20:GOTO 190 


510 NEXTB 


180 IF CD=>10 THEN K1=1:C=CD-10 ELSE C=CD 


520 S(A)=0 


190 IF S(C) THEN 500 ELSE S(C)=1 


530 NEXTA: RETURN 


200 'D 


540 'PRINT 


210 FOR D=L TO M-l 


550 W=D:X=A:Y=E:Z=B:GOSUB590 


220 IF S(D) THEN GOTO 480 ELSE S(D)=1 


560 W=E:X=A:Y=D:Z=B:GOSUB590 


230 "E 


570 W=D:X=B:Y=E:Z=A:GOSUB590 


240 FOR E=D+1 TO M 


580 W=E : X=B : Y=D : Z=A : GOSUB590: RETURN 


250 IF S(E) THEN GOTO 460:ELSE S(E)=1 


590 IF CU=5THENX1=X1+10:LOCATE,0:CU=0 


260 'F 


600 W$=STR$(W) :X$=STR$(X) :Y$=STR$(Y) :Z$=STR$(Z) :G$= 


270 K2=0:FD=K1+D+E:ON 1+1 GOTO 290,280 


STR$(G) : I$=STR$(I) :H$=STR$(H) :F$=STR$(F) :C$=STRS(C) 


280 IF FD<10 THEN GOTO 450 


610 LOCATEXlrPRINT" 4" 


290 IF FD=>10 THEN K2=1:F=FD-10 ELSE F=FD 


620 LOCATEXlrPRINT" ";W$;X$ 


300 IF S(F) THEN 450 ELSE S(F)=1 


630 L0CATEX1:PRINT"+ ";G$;Y$;Z$ 


310 ' 


640 L0CATEX1:PRINTI$;H$;F$;C$ 


320 ON 1+1 GOTO 350,330 


650 CU=CU+1:C0=C0+1: RETURN 


330 GOSUB550:GOTO440 
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U PI®c7)_tJS£ Y &*7)*5T K -y h 
glz-rSA^-tz>y hfSfctfHaU' 

fc t *.tfioo£^ffti& yjs 

«<7)1 00 K >y h g (7) 7 -f >&&# 
HULk^S** bTlZfp)A N o TS^ ? 
ft4T 

-^t'jZ^UvT.?— <7)fi& 1 



fr"F(z 7. ? p -;u $ it Z> Z £ #T* 
3 <7)$&7, ? P -7M$f £(42567 
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tz 4 ?-##iACC £ (Zfc U 4 "To 
3 (DfiTs ^ P — 7K4IU7. ? P — 7U 
^(iS^iJ, ^77-f K4^^P 
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Jl*t)¥ft£t>tl£ tify 1 IzT £ £ 

JSI^T •& 2 ^<— v T*^ ^ P — JUtfP* 
^cC^ti§4^(z^U4r o 

Z:^^ ^/\°^ — >^— At— 7' 
JKi^S^- v A < ifflR $ ft 4 "To 
If*? n-iuZTZZ £ [ZX^X 
M W£m<fi£.7?i t— ? tR^% (z ti 
l)*to 3C7)g(57>(4Uv^^-25 

<nt'y h 1 £nz-f §zi:tz4o 

T^-^-73 7-T'77.^-r-6Z: 
^A < T-#4To 

+f >7°7U7°P ^7A^1T < £ 
$l^ C<7)7°Py7A(iTJ — v;u 
+-(Z4-oT8 7Jf^](Z®i5^7.^ 

■f7^ \-/t£irtofc.ir\. 
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E 



US^E- K(£SCREEN5£-f£ffi 
U MMzWF£-&Z>tztsb(nT— 
5> t LXS -f >R0M<7)Ftyg£VRAM 

9-^i'J 7(7) PUT X, PUT YIJ 
4-, ®®(7)a:'C7)^I^b^^7FL 
T I ^ <7)*r<7)tS$6£teffl L T fc < 

fc«>e7)fc(7)TTo 

nfcJ^«(7)rt§^ii;^Ls :M 
/\— vo^TT^-y u— JUHflUcDU 

®£ 8 ;7jft[Z* ? P— JUcF-tfS - 

y -f >ju-7- > S T'WM^t 
SfrfrTIi i -f x <? n ->*- Kft 



*? P— jUT'liVRAM 1 *— S?* 
T^Tte-j fcafciz, ^77-fhi 
1&7)t— "7*.>U#BfcaE£ tiXLii 
tztbX'to 

£HPgu:;*?p— juLTi^£*r£* 

(TiT'—JZ LT.X-f >R0M<7)F*g 
^^rVRAMlZlSMLTl^STo 

LT fc < tzSb<F>1-?zz 'J 7T-* 
5 N PUT X, PUT Y£ T'MIx^ 

+ -(7)A^«rStt#(t"C, *<7># 

$ Htzftfaizimt % r- $frb 

PUTX, PUT_Y&!ggfLTV*fo 

£tiTu3MlS*?p-^L7z 



& ct ") (Z VDP<7) U v 7 ? - £# # 

&*w& nf£n®®t>*?p- 

«7J[^(7)«7F^^iB(i put_y 
(7)F*3§£¥<7)S JUy7?- 23 

iz##^cfc*itT*r*s-ro 

<t^|S]<7)*g-(i PUT_X(7)rt^ £ 
Uv*?-26, 27lz## £#>&<£ 
3 Iz^LWfttfUtS-i+A,,, 

L'W? -26(Z# # iA C x- 
? (i^7Jf^]lZ 8 K -y h JpLfe(7)* ? 
p— ;U#fc<7rt\ PUT_X(7)rt^(Z 
7 %-JEU 3 lH*^->7 h Lfcfit 

U v 7. ? -27tZ* # iAt;7- 
^(i*7Jfp)^(7)1 K-y h ^31(7)7 
^P— ;ua^<7)T\ PUT_X(7)rt^ 
CD 2 CDffiifccDTfe 3t'7h^tl 



?r8 7a^]lZ 1 Pv Mfcfife^A- 

ft. 

fc£ L ZC07°P 77A(7)| £ T 

(is £ < iz^iTjft*? p— JK7)*& 
■g-tzH®^*) "bo^T ji* £ To 
c nii MSX^H® Srffi^T US 
H4nz s VDPUvT.? — IZ7— 9 
%i£iX^%tztf)T°To 

7f£(ZVDPUv7.?— [Z7-?£ 
VDPU v 7. ? — <7)# # &<£■ £f Ij »J 



1 


E9 


rvry§ 


VJVUf %f 19 


LD (PUT_X).A 






w 


w w 


w w w w 


INC HL 






▼ 


▼ T 


T ▼ T T 


LD A. (PUT_Y) 


Y£|6]HBS*M«i(ft{l© , 7-*x 'J 7©MSi 










ADD A. (HL) 






<-\ — 


h'9i/'Xi7D — J\> 




LD (PUT_Y).A 

LD A. (PUT_X) ; 

LD E.A 


x:&|S]H®3l>TvBfl*&fiia©L'v x*-»£&# 


WRTVDP 


EQU 


0047H 


BIOS, yXfA9-5S8 


ADD A. 7 ; 


VDPl/y^?-2 6(C*giA£;T'-$ , ©ft/& 


IDIRVM 


EQU 


005CH 




RRCA 




CHGMOD 


EQU 


005FH 




RRCA 




GTSTCK 


EQU 


00D5H 




RRCA 




RG8SAV 


EOU 


0FFE7H 




AND 000 1 11 1 1 B 

LD B.A 








JvSijUSRJg 




LD C. 26 
CALL WRTVDP 






LO 


A. (RG8SAV) 


xy^-r h$k*<Dm± 


LD A. E : 


VDP U&X&— 2 7 IcS^iACf — ^©ftfiE 




OR 


00000010B 




NEG 






LD 


(RG8SAV). A 




AND 00000 1 1 1 B 






LD 


A. 5 


7-9 y—ve— K5 


LD B.A 






CALL 


CHGMOD 




LD C. 27 
CALL WRTVDP 






LD 


DE. 0000H 


liDlS^© tz #><D 7 1 — i> ©* $ ihfr 






L00P1: 


PUSH 


DE 




LD A. (PUT_Y) 


YTjftilfg^MfefiS© U v X 9 -S^iA* 




LD 


HL. 0000H 




LD B.A 






LD 


BC. 2000H 




LD C. 23 






CALL 


LDIRVM 




CALL WRTVDP 






POP 


DE 










LD 


A. D 




JP MAIN 


> -i l/Hf—f V©JtIS(Cs5 




ADD 


A. 20H 










LD 


D. A 




: X, YHJSMte(4{I*e*f1-*fc«>05 ! '-$' 




JP 


NZ. L00P1 




MOVOAT: DB 0. 


*-V^*-*<ff StlTC>&(,^t^ 




XOR 


A 


;BaB«*H*fi(fl:a0 7-i/x U 7©ftM 


DB 0.255 


A-Vi^-ffllOTStlfct? 




LD 


(PUT_X).A 




DB 1.255 


*-v;i/*-©^±*<» ^txfci^ 




LD 


(PUT_Y).A 




DB 1. 
DB 1. 1 


*-VJU*-©^*<W3tl/'cia 
*-v;u*-©*T*<»snfct* 


: 




6M=>.*-r >)i>— ?y 




DB 0. 1 
DB 255. 1 


*-v;i<*-©TA<f? Jtitt? 


MAIN: 


XOR 


A 


;*-VJU*-CDA^] 


DB 255. 


*-VJU*-©S*<ff Stlfct? 




CALL 


GTSTCK 




DB 255.255 


A-v;u*-©*±*<if snfci^ 




ADD 


A. A 










LD 


D. 




; 5-JIU7 






LD 


E.A 










LD 


HL.MOVDAT 




PUT_X: DS 1 


X ^fSlliDlS^Mteffia $*Slft-r 5 9 - i7 X ij 7 




ADD 


HL. DE 




PUT_Y: DS 1 


Y 2rfflBiE$;i%MttttS€fttt-r « 9 -?I'J7 




LD 


A. (PUT_X) 


i'X^lWBBESIWIffli^ifiy rcDMSr 








ADD 


A. (HL) 




END 
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Bftsae»#4i 






l^57-r^J/-Jb2 




^(^7 7^^7-JMM tifeiiinLT^fco 



* L, *rffi < C £ <7)-C# & ^ 7°P ?* 

£-f(J£(z*r<7 p?*7A£|| 
^TLT^fzi^ U-? Ac7)/c#)i::, 

7°P?*7A(7)7— v(7)73>£frbt# 
B^Lct-Po ^— S>£t^0>tt^fc 

o<7)7°P^A£t>£-3(z££#> 

S«8ti<7>z:£f:fo 

S^t34-[I]C7)7 P ?v A £IE L 

•fe— 7*LTkbWc^ 7 7"OU 
£ tt£ A,T* fc I M. ^HRC *GT00L2 . 
ASC'^LcfcOo Z<7)££&>f7X 

*—■ tr-7*-r5Ci:o fcfcXJ* 

SAVE *GT00L2.ASC*,A 

fc h^mtftR mm l /•= 7°p 73 

AfcP-KTSo 3*1(277*- 
-tz- 7*? tlfc fc Wt4 < T fe J: l\, 

-3 #"lz $ -3 # T 7 7. *— tz-7 L fc 

MERGE *GT00L2.ASC* 
fcfT*>&A,T*'J ?->+-£# L 

^fcO<7)7 n^5A*^t-?C'& 



&fc4-/l*»7) H t>7°^7°P 7' 

lu^T*MLTfebWci\, *ft 

^7At±§@ffc(Z-tz-7*LTfc< Z 

££fcff|#>T5o Hffofct/tzv 
S 1* (2 7°p ^7 A£fl«7)3IEft * 

iioT&bWzl\, 
1065—1110 *-V;i«7F<7)3fcg. 
$fc£<7)7°P ^7 A<7)— SBt>£^ 

200CKt£ n b 229(J(t * X' it t> 7 

2000—2120 2«OF-*BI< 

^3 7-S^co7-f > K— *W < 

2130—2160 +-X+-^> 

HJ #-#$¥£ ft* £T^-3 
2170—2190 **>-bJl> 

*¥$nfc£§\ mt**^^ 

lt> < ><r>14 > K-lZ^-So 
2200—2230 *7-JSR 

* - V *#9B* $ titzttSLiZ h 
5 t£ b $&WR tl 7 —W^(») L,— 

=F >^i> * >7° *■ -3 Tajp 1 \# ib 

2240—2290 JSfWJv-SJj* 



sooofftj^o \-<n%nWc)\>— 
7- > fc* % tz 1 oooom«i 5 -r 

>v #y**, ^-y77s7;k p 
fcf— x ^OKWH^tJU— f L >£ 

(75-ffe £ Z. *> £ - -5 IZ * & STOP^ 

4000,5000 /<l/y K?<fX£tt) 

10000 'y'OJ&rrJU— ?> 

g&cFitmffi. =7 -r > fcss^-r 

10500—10620 j^R^'fXT^Tr: 

z <7>;u— ^ >(i 7 -f >Wn)\r- 
f->£-y-.—?Jl<^rT)l>—5->frib 

mtnz>o 7-f>n^Ji^?->^ 

•9-—^ JUtfrJU— ?■ >* x «bnftfn 

'J2^^;u-f- > (ZtIhRT -So 
10630 7'f>«r§|< 

10640—10670 -9-— ^;u4-flt< 

11000 ifey^'X^riP— ^> 

hzi-)^$ntzz£^m.^ : b^n 

V^^7JHHfJ/U— 9->ts:h 2, 
P fcf— JWt-H^- 5'>%h 3 tlfr& 
11500—11620 ®^#«y^X*^ 

?7>7)W P t°— <7) 3 ■ZXDJl'— J- 
7jrf5 £ tzg&BFZ&mLX* 

n?n>s^K)u-?- xz-anft-r 5o 

11630 #y^X*»< 
11640 *'<y^^7;u^»< 



11650—11820 Pt°-$feJi^ 

Pt-7tC0^1t^^il^Ls ^(7) 

12000 tfy97>yJV$&TJU-?-> 
*»BFft2-.CUTa!W*'y^ 

^.CO^tfJL/— 5 1 >^ P — ^Uf^o 

13000 -9--?;uitfT;u--? 1 > 

^^CF?r2(ZLTii^7-f > 

(7)^c;i/— 9 1 > & p — ii/f 4o 
14000 atf-S^T^— ^> 

g$CBF£3lZLTiS^y? 
^<7)^ft^~ f > ^ P — ^H"5o 
15000 137—2&TJU— 9-> 

200m t>- h1£ £ I.A7 -<7)*7J 

mu^-^>x\ 

RETURN ^r#-§- 

16000—16010 ^^ym^u- 
7> 

17000.18000 '<UvYsT<tX9 

*mitH^£o L^L73 5-il 
JR^IllU^i^Ko/ctf^ Z(7) 

4-[l]<7)7°P^*7AT"(i, ffH](7) 
^^(Ziq^T, 7-f>, ^-y^^s 

7--7JK iitf— *5— aBRs 

£/Wy hc^^M^T-VT.^^^ 
-tz-7, Q— F«)/U— ^>4Jfc^ 

(ZLT(5LI\ 

m&^lno fcR<nts$hiHzu 

ZiltlZs Z(7)7°P7*7A(7)#^ 

<$it, mmt^-^->£. nft^ 

-*>it&tim*MiT%*4> 
o-o F-frhmt*mRUzm 

;U— 7°(7), 1070ff^«b109(WTlZ*3 
fz->Tt>5 ■£ #C HJ tY— A * c ff 
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ipMOGKAMJfOUSE 



v>y&j7>b 


10570 GOTO 10510 

10600 LINE (XI. Yl) - (XJ. YJ) . DC, , XOR 


^^^s^^^^^^^^^^^^^^^^^^^^^^^\^^^^^^^» 


10610 IF (STRIG(3) =-1) OR ( (PEEK (&HFBEC) AND 4) =0) 




THEN 10610 


1065 RC=1 


10620 RETURN 


1100 PUT SPRITE 0, (X, Y) , DC. 


10630 LINE (XI. Yl) - (XJ. YJ) . DC: RETURN 


1110 PUT SPRITE 1, (X. Y). RC, 1 


10640 LINE (XI. Yl) - (XJ. YJ) . DC. , XOR 


2000 X1=X+8:IF XI > 120 THEN XI =120 


10650 XP=(XI+XJ)¥2:YP=(YI+YJ) ¥2 


2010 Y1=Y+8:IF Yl>170 THEN Yl=40 


10660 R=SQR ( (XI -XJ) * (XI-XJ) + (YI-YJ) * (YI-YJ) ) ¥2 


2020 COPY (XI . Yl ) - (XI +131. Yl +39) TO (0. 101), 1 


10670 CIRCLE (XP. YP) , R. DC: RETURN 


2030 LINE (XI. Yl) - (XI +131. Y1+39), 1 . BF 


11000 BF=1: GOSUB 11 500: RETURN 


2040 LINE (XI. Yl)- (XI + 131. Y1+39). 1 5. B 


11500 XI=X:YI=Y:XJ=X:YJ=Y 


2050 PSET(Xl+2. Y1+2). 1 :PRINT #1."*7-" 


11505 IF STRIG(0)+STRIG(1) THEN 11505 


2060 PSET(X1+2. Y1+20). 1 :PRINT *],"*' Vst ; ta'Jft-f-ya^ 


11510 LINE (XI. Yl) - (XJ. YJ) , DC. B. XOR 


" 


11520 X=XJ:Y=YJ: GOSUB 1100 


2070 FOR 1=0 TO 1 : FOR J=0 TO 15 


11530 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) AND 4) =0) 


2080 LINE (Xl+2+J*8. Yl + 1 0+1*20) - (X1+8+J*8, Y1 + 16+I*2 


THEN 11600 


0). 15. B 


11540 IF STRIG(0)+STRIG(1) THEN ON BF GOSUB 11630. 


2090 LINE (Xl+3+J*8, Y1+1 1+1*20) - (X1+7+J*8. Y 1 + 1 5+1 *2 


1 1640. 1 1650: GOTO 1 1820 


0) . ,J. BF 


11550 IF X=XJ AND Y=YJ THEN 11520 


2100 NEXT J, I 


11560 LINE (XI, YD- (XJ, YJ) , DC. B. XOR:XJ=X: YJ=Y 


2110 LINE(X1+2+DC*8, Yl + 10)- (XI +8+DC*8. Yl + 1 6) . 8, B 


11570 GOTO 1 1510 


2120 LINE(X1+2+KC*8, Yl+30)- (XI +8+KC*8. Yl +36) . 8. B 


11600 LINE (XI. YD- (XJ. YJ) , DC. B. XOR 


2130 GOSUB 1 100 


11610 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) AND 4) =0) 


2140 IF STRIG(0) +STRIGO) THEN GOSUB 2200 


THEN 11610 


2150 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) AND 4) =0) 


11620 RETURN 


THEN 2170 


11630 LINE (XI. YD- (XJ. YJ) . DC. B: RETURN 


2160 GOTO 2130 


11640 LINE (XI. Yl)- (XJ, YJ) . DC, BF:RETURN 


2170 COPY (0. 101) - (131. 140). 1 TO (XI. Yl) 


11650 IF STRIG(0) +STRIG(1) THEN 11650 


2180 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) AND 4) =0) 


11655 LINE (XI, YD- (XJ, YJ) , DC. B. XOR 


THEN 2180 


11660 IF XJ<XI THEN SWAP XI. XJ 


2190 RETURN 1630 


11670 IF YJ<YI THEN SWAP YI.YJ 


2200 IF X<X1 OR X>X1+127 THEN RETURN 


11680 XX=XJ-XI:YY=YJ-YI:X=XJ:Y=YJ 


2210 IF Y>=Y1+10 AND Y<=Y1+16 THEN 2240 


1 1 690 COPY (XI. Yl) - (XJ, YJ) , TO (0, 0) , 2 


2220 IF Y>=Y1+30 AND Y<=Y1+36 THEN 2270 


11700 XK=X:YK=Y: GOSUB 1100 


2230 RETURN 


11705 IF (X-XX<0) OR (Y-YY<0) THEN X=XK:Y=YK: GOTO 


2240 LINE(X1+2+DC*8, Yl + 10) - (X1+8+DC*8. Y1 + 16) . 1 5, B 


11700 


2250 DC=(X-X1) ¥8: IF DC=1 THEN RC=15 ELSE RC=1 


11710 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) AND 4) =0) 


2260 LINE(X1+2+DC*8, Yl +1 0) - (XI +8+DC*8. Y1 + 1 6) . 8. B : R 


THEN GOSUB 11 770: RETURN 


ETURN 


11720 IF STRIG(0)+STRIG(1) THEN GOSUB 11770:GOTO 1 


2270 LINE(Xl+2+KC*8. Yl +30) - (XI +8+KC*8. Y1+36). 1 5, B 


1800 


2280 KC=(X-X1)¥8 


11730 IF X=XK AND Y=YK THEN 11700 


2290 LINE(X1+2+KC*8. Yl +30) - (XI +8+KC*8, Y1+36), 8, B : R 


1 1 740 LINE (XK. YK) - (XK-XX. YK-YY) . DC, B, XOR 


ETURN 


1 1 750 LINE (X. Y) - (X-XX, Y-YY) , DC, B. XOR 


2999 GOTO 2999 


11760 GOTO 1 1700 


3000 GOSUB 1750: RETURN 


1 1 770 LINE (XK. YK) - (XK-XX. YK-YY) . DC, B. XOR 


4000 STOP 


1 1780 LINE (XI. Yl) - (XJ, YJ) . DC, B, XOR 


5000 STOP 


11790 RETURN 


10000 CF=1: GOSUB 10500: RETURN 


1 1 800 COPY (0. 0) - (XX. YY) . 2 TO (XK-XX. YK-YY) , 


10500 XI=X:YI=Y:XJ=X:YJ=Y 


11810 RETURN 


10505 IF STRIG(0)+STRIG(1) THEN 10505 


11820 IF STRIG(0)+STRIG(1) THEN 11820 ELSE RETURN 


10510 LINE (XI. Yl) - (XJ. YJ) . DC. . XOR 


12000 BF=2: GOSUB 11 500: RETURN 


10520 X=XJ:Y=YJ: GOSUB 1100 


.13000 CF=2: GOSUB 10500: RETURN 


10530 IF (STRIG(3)=-1) OR ( (PEEK (&HFBEC) AND 4) =0) 


14000 BF=3: GOSUB 11 500: RETURN 


THEN 10600 


15000 STOP 


10540 IF STRIG(0)+STRIG(1) THEN ON CF GOSUB 10630. 


16000 PAINT (X, Y), DC, KC 


10640: ON CF GOTO 10500, 11820 


16010 RETURN 


10550 IF X=XJ AND Y=YJ THEN 10520 


17000 STOP 


10560 LINE (XI. YD- (XJ. YJ) . DC, , XOR :XJ=X: YJ=Y 


18000 STOP 
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SHORT PROGRAM HOUSE 



u^h^-y 




BLOOD FIGHT 



If^73^ttl04^-yu 



10 SCREEN 1 .2.0: COLOR 15 , 1 , 1 : KEYOFF: U1DTH 

32 : DEF I NTA-Z : R=RNDC -T I ME ) 

28 FORI=0TO51 :B$="":FORA=0TO3 1 

30 READAS : B$=B$+CHRSC VALC "&H"+AS ) ) : NEXT : 

SPR1TESC I )=B$:NEXT:Z=&HDO00 

40 FOR I =0TO7 : READB : FORA=0TO2 : VPOKE768+ I + 

A*64.B: NEXT: NEXT 

50 FOR I =0TO8 : FORB=0TO7 : READA : VPOKE 1408+1 

*8+B . A : NEXT : NEXT : L$="~f"?I*S*'?'? " 

60 FORI=240TO727: V=VPEEKC I ):VPOKEI . VORV¥ 

2 : NEXT 

70 FORI=0TO6:READN$C 1+1 ) : FORA=0TO3 : READB 

: POKEZ+ 1 *4+A . B : NEXT : NEXT : PS="*o»< .. 

80 FOR I = 1 T08 : READA . B : VPOKE8 1 97+A , B : NEXT 

90 FOR I =0TO3: READAS :Z$C I )=AS+CHRSC3 1 )+CH 

RSC29 )+CHRSC29 )+A$: NEXT 

100 ' ••• TITLE ••• 

110 CLS:GOSUB650:A$="BY SO ICHIRO. UI-" : FOR 

1 = 1T07:L0CATE17-I . 10 : PR I NTLEFTSC AS , I ) : LO 
CATE17. 10:PR1NTR1GHT$CAS, I ) : NEXT 

120 LOCATE9, 14: PRINT "1 : MAKE CHARACTER"SP 

CC 50) "2: FIGHT "SPCC 59) "3: LOAD" 

130 A$=INKEY$: A=-CA$="2"ORAS="7"ORA$=".f." 

>-( A$=" 1 "ORA$="S"ORA$="*S" )*2-C A$="3"ORA$ 

="?"ORA$="»" )*3 : ONAGOTOG70 , 1 40 . 2930 : GOTO 

130 

140 CLS:LOCATE2. 1 : PR I NT "CHARACTER SELECT 

"SPCC50)"1 2 3 4" 

150 ' ••• CHARACTER SELECT ••• 

160 FORI=0TO6:PUTSPRITEI . C200 . 60+1*17 ) . 1 

5. 1*4: PC I 5=0: NEXT :X=1 : Y=l 

170 IFSTRIGC0)THEN17B 

180 PUTSPRITE7, CX*24, 15),3,42 

1 90 S=ST I CKC ) : X=X-C S=3 ) + C S=7 ) : X=X+< X=5 ) 

*4-<X=0)*4: A$=INKEY$: IFAS=CHRSC 13)THEN29 



200 IFA$=CHR$< 1 1 )THEN110 

2 10 IFNOTSTRIGC0)THEN180ELSEBEEP 
220 IFSTRIGC0UHEN220 

230 PUTSPRITE7. C 192 , 35+Y* 1 7 ) , 3 . 42 

240 LOCATE5. 15 : PRINTUSING"NAME: & &"; 

NSCY) 

250 S=STICKC0):Y=Y-CS=5)+CS=1 ): Y=Y+CY=8) 

*7-CY=0)*7 

260 IFNOTSTRIGC0)THEN230 

270 POKEZ+X*50 . Y- 1 : PUTSPR I TE7+X , C X*24+9 , 

32), 15.CY-1 )*4+3:BEEP:PCX)=l 

280 F0RI=1T07: A=ASCCMID$CN$CY>+" ",I 

, 1 )):POKEZ+50*X+I+10,A:NEXT:GOTO 170 

290 IFPC 1 >+PC2)+PC3)+PC4X4THEN170 

300 FOR I = 1 T04 : FORA= 1 T02 : POKEZ+A+ 1 *50 . 1 : N 

EXT : FORA=3T07 : POKEZ+ I *50+A , : NEXT : POKEZ+ 

1*50+8.5: NEXT 

310 ' ••• CHARACTER CHENGE ••• 

320 GOSUB650:B=1 

330 LOCATE5,7:PRINT"STR: "SPCC60 )"PRT : "SP 

CC 60 ) "DEX : "SPCC 60 ) " I NT : "SPCC 60 ) "TYPE : "SP 

CC 59) "SAVE "SPCC 91 )" BONUS: " 

340 PC0)=PEEKCZ+B*50):FORI=1TO4: AC I )=PEE 

KCZ+PC0)*4+I-1 ):NEXT:F0R1=1T06:PC I )=PEEK 

<Z+B*50+I ):NEXT 

350 BS="":FORl=l 1T01 7 : A=PEEKC Z+50*B+ I ) : B 

S=B$+CHR$CA):NEXT 

360 FOR I = 1 T04 : LOCATE9 . 5+ 1 *2 : PR I NTUS I NG"B 

8+":AC I ):NEXT:Y=1 : BO=PEEKCZ+B*50+8 ) 

370 L0CATE6.5:PRINTSPCC7) 

380 LOCATE5,5:PRINTUSING">& &":B$ 

390 FORI=3T06:LOCATE12. 1*2 + 1 : PR I NTM I DSC P 

S.6-PC I ),5):NEXT 

400 LOCATE 1 1 , 20:PRINTMIDSCPS.6-BO.5) 

4 1 LOCATE 1 . 1 5 : PR I NTCHRSC 64+PC 1 ) ) 



420 PUTSPR 1TE1 .(100.20). 15.PC0)*4+2 

430 PUTSPRITE0.C32, C Y+ 1 )* 16-1 ) .3 , 42 

440 S=STICK<0):Y=Y+<S=1 )-C S=5 ) : Y=Y+C Y=8 ) 

*7-CY=0)*7: IFS=3ORS=7THEN470 

450 AS=INKEYS: IFA$=CHR$C 1 1 )THEN100 

460 IFSTRIGC0)THEN530ELSE430 

470 A=< S=7 )-C S=3 ) : ONYGOTO480 .510,510.510 

.510,520.430 

480 FOR I = 1 T06 : POKEZ+B*50+ 1 , PC I ) : NEXT : POK 

EZ+B*50+8,BO 

490 FOR I = 1 T07 : POKEZ+B*50+ 1 + 10, ASCC M I DSC B 

S, I, 1)>:NEXT 

500 B=B+A: B=B+CB=5 )*4-CB=0 )*4: GOTO340 

510 BEEP:BO=BO-A:PCY+l )=PCY+1 )+A: IFBO<0O 

RPCY+1X0THENBO=BO+A:PCY+1)=PCY+1 )-A:GOT 

430ELSE390 

520 PCY-5)=PCY-5)+A:PCY-5)=PCY-5)+CPCY-5 

)=5 )*4-CPC Y-5)=0 )*4: BEEP: GOTO 410 

530 ONYGOTO540 , 430 . 430 . 430 . 430 . 430 . 570 

540 A=7:O=5:R=5:GOSUB810 

550 BEEP:BS=BS+" " : GOTO 430 

560 ' ••• DATA SAVE ••• 

570 FORI = 1TO6:POKEZ+B*50+I .PC I ): NEXT : POK 

EZ+B*50+8,BO 

580 FORI=1TO7:POKEZ+B*50+I+10,ASCCMIDSCB 

$,1,1 )):NEXT:BS="" 

590 FOR I = 1 T04 : A=PEEKC Z+ 1 *50 ) : FORA=0TO3 : C 

=PEEKC Z+A*4+A ) : D=PEEKC Z+ I *50+A+3 ) : POKEZ+ 

1 *50+A+20 . C+D: NEXT : NEXT 

600 GOSUB650:BS="": LOCATE 10. 10:PR1MT"FIL 

E NAME"SPCC88)" " 

6 1 ONERRORGOTO640 : A=8 : 0= 1 : R= 1 2 : G0SUB8 1 



620 B$=B$+" . ZZZ" : BSAVEBS, Z+50 . Z+249 : LOCA 

TE10, 15:BEEP:PR1NT"SAVE C0MPLETE"SPCC52 ) 

"PUSH SPACE KEY" 

630 IFSTRIGC0)THEN1 10ELSE630 

640 BEEP : LOCATE 1 1 . 1 4 : PR I NT "ERROR ! " : RESUM 

E610 

650 CLS:FOR1=0TO12:PUTSPRITEI , C0, 133),0, 

: NEXT : RETURN 

660 ' ••• LOAD DATA ••• 

670 CLS:LOCATE5.0:PRINT"FILE LIST" 

680 LOCATE. 2 : F ILES"* . ZZZ" : PC )=0 : PC 1 )=0 

690 FOR I = 1 T02 : L0CATE3 . 5+ I *5 : PR I NT "PLAYER 

" I ; SPCC 88 )" " : NEXT : L0CATE3 . 20 : PR I 

IIT"START":Y=0 

700 PUTSPR I TE0.C 16.C9+Y*5)*8).3.42 

710 S=STICKC0):Y=Y+CS=1 )-CS=5 ) : Y=Y+C Y=3 ) 

*3-CY=-l )*3: IFINKEY$=CHR$C1 1 )THENG0SUB65 

0:GOTO 110 

720 IFNOTSTRIGC0)THEN700 

730 ONY+1GOTO740.740.890 

740 ONERRORGOTO770 : A=8 : Q=3 : R= 1 2+Y*5 : GOSU 

B8 10 

750 NSC Y )=BS : BS=BS+" . ZZZ" : BLUADBS , Y*288 

760 FOR I = 1 T04 : A=PEEKC Z+Y*200 + I *S0 > : PUT SP 

RITEY*4+I . C 100+1*16. C 1 1+Y*5.'*3.'. 15.A*4+2 

:NE T : PC Y )= 1 : BEEP: GOTO 700 

770 BEEP:RESUME740 

730 ' ••• SOUND ••• 

790 FORI=0TO13 : READAS: SOUND I .VAL' '•&H"+ftS 

): NEXT: RETURN 

S00 ' ••• NAME ••• 

8 10 BEEP:BS="":L0CATEQ+1 . R: PRIHTSPCi. A) : F 

0RI=1T0A 

820 PUTSPR 1TE9.CCQ+ 1 )*8.R*8-1 ). 15.48 

830 A$=1MKEYS: IFAS=CHR$C 13)THEN860 

840 IFSTICKC0)=7THENI = I-1 : 1 = 1 — C I =0 ) : BS=M 

IDSCBS. 1 . 1-1 ):L0CATEQ+1 ,R:PRINT" " 

850 A=ASCCRIGHTSC" "+AS. 1 ) > : 1 FA; 64AIIDA <9 



6THENL0CATE0+1 . R: PR I IITAS: BS=bS+AS: I IE IEL 
SE820 

860 IFLENCBS)=0THENBEEP:GOTO830 
870 PUTSPR 1TE9.C0, 193 ). . 50 : RETURN 
880 ' ••• GAMEII SAKUSE1 ••• 
890 ONERRORGOTO0 
300 IFPCB)+PC1X2THEN700 

3 10 GOSUB650:FOR1=0TO1 : LOCATE 1 . 1*2 1 :PR1M 
rSTR I NGSC 22 . "•" ) : NEXT: FOR I = 1 1020 : LOCA TE 1 
. I :PRIMT"«"SPCC20)"»":ML> T 
320 FOR1=1T08:BS="":FORH=1T07:A=PELI CZ+I 
*50+10+H):B$=BS+CHRSCA):IIE- 1 
930 L0CATE24. 1*2 + 1 ¥5-2 : PR I IITBS: L'.»'. ATE'24 . 
I *2+ I ¥5- 1 : PR I NT"200/200 " : NEXT : L0CATE26 . 1 
9: PR I NT "TURN" 
940 ' ••• FIGHT ••• 

950 B=0:FOR1=1TO8:A=PEEKCZ+I*50):H=1 : G=2 
:F=A:GOSUB2730:AC I )=K:PC 1 )=I :NEXT 
960 F0RA=2T08:F0RI=AT08: E=RNDC0.'*2: 1FACA 
-1 XAC I )+ETHENSWAPACA-l ).AC I ) : SWAFF C A- 1 > 
.PCI ) 

970 NEXT : NEXT : VC 1 )=0 : VC 2 )=0 : W=0 
980 FORI=1TO4:FORA=0TO1 :HCA*4+I )=A*-2+2: 
ACA*4+1 )=200:.xCA*4+l )= 1 * J-2 : YC A*4+ 1 )=A*'d 
+ 1 : OC A*4+ 1 )=A+ 1 : NEXT : NEX1 

390 F0RI=1T08:A=PEEKCZ+ 1*50): PUTSPR I TE I + 
4.C*C I )*16+1 ,YC 1 )*16-9). 15-C 1¥5)*5,A*4+H 
'. 1 ) 

1000 LOCATEXC I )*2.YC 1 )*2-l : PR1 II \Z%k uC 1 ) < 
: JC I )=0:MC 1 )=0:ME T 

10 10 FORI=0TO4:PUTSPRI FEI . C56+-l*16,72+I* 
4). 3+ I .43+1 :NEXT:ONKEYGOSUB2750 
1020 RESTORE42 10:GOSUB790:KEYC 1 )0N 

FOR I =0 T03 00 : ME r T : FOR I =0 T04 : PU1 SPR 1 1 
I. 193). 0.0: NEXT 
' ••• MAIM ••• 

FORZZ= 1 T08 : A=PC ZZ ) : LOCATE28 . 20 : PR 1 1 1 
TUSING"MH";W: IFJC A)=2THEN1 350 
1060 L0CATE23. A*2+A¥5-2 : PR 1 NT"? " 
1070 I F J C A )= 1 THENH=A : F=B : G=3 : G0SUB27 30 : F 
=RNDC 1 )*50+K: IFF>30THENJC A )=0 : F= 1 : E=A : G 
OSUB2200 : GOTO 1 350ELSE 1 350 

1080 B=PEEKCZ+A*50 ) : T=PEEk'. 2"+A*bB+ 1 t : UI4B 
+1G0T01 100. 1400. 20 00. 2 2 20. 2 400. 2 47 . 2520 
1090 ' ••• FIGHTER ••• 
1 100 ONTGOSUB2590,2620.2e.50.2bHH 
1110 ' ••• MOVE ••• 

1 120 E=>CA):F=.?-CTCA)):G=YCA;:H= , ■ ■. 1 1 ft .. ).{ 
= AfcSC E-F ) : Y=ABSC G-H ) : C=C E>F )-C E F ;. : D=< G 
H)-CG<H) 

1130 FORM= 1 T03 : G=0 : E=X< A) : F=YC A .. : 1 FY . ;' TH 
EMI 160 

1 140 V=VPEEk C&H18BB + CXCA)+C>*2+CY<A)*2-1 
)*32>: 1FV J2THENG=G+1: IFG=2THEN 1 200ELSE 
1 160 
1 150 XCA) = -CA)+C :/ = ■-! :HCA)j=-C+2:GOT01 13 




1030 
El . Ct 
1040 
1050 



1 160 V=VPEEk<.&H1800 + .":A.i*2 + CCYCA) + h.'*_-l 

>* 12 ■: IFV 32THENG=S>) I : IFG=2 rHENl»2BBEL8E 

1 1 4 

1 170 Y'.A.'=y..A.' + D: .'=,-1 :HCA.>=D+1 

I ! 88 GOSUB256ffl : BEEF : I P P,'= 1 I HEN 1 - BBEL 3E1 1 

L I 

I 130 ' ••• CHECH ••• 

1^:00 P0RM=1I'.'4: =i ri = 4)-CM=2 ) : Y=>. M- I 

3 "': V=VPEE"KC&H1800 + C - A..+ )*2+( CYCA i+Y')*2 
1 )*J2)-169+UCA): IFW=1THEN123B 

12 10 NEXT: GOTO 1330 

1220 ' ••• ATTACK ••• 

12 30 H=A : G=2 : F=B : GOSUB2730 : E=l< : H=M : F =F EE 
K C Z+M*50 ) : GOSUB2730 : F=K-E : F=F*-i F . ) + 1 

1240 E=RMDC 1 )*100: IFF>ETHENK= 1 ELitl =0 

1250 D=25+M*2-CM=1 )*8:G=C CM=3)-CM=1 ) )*14 

: H=C C M=4 )- C M=2 ) )* 1 6 : E=C C M= 1 0RM=4 )- .. M=20F 
M=3))*14:F=CCM<3)-CM>2))*16: IFI =1THENF0R 
I1=0TO2:GOTO 1280 

1 260 PUTSPR I TE0 . C C ,\C A )+ • ■ )* 1 b+ 1 

1S-9J, 10.36 

1270 REST0RE4 1 30 : GOSUB73B : F0RM=8T02 
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PUTSPRITE1.C i A5*16+1+E+G*M. YC A.'* 16 
9+K +H*I15. 14.D:D=D+1+CD=35->*8:PORC=0 1050 

■ UE 2"130 : F 0RM=C I 0C +3 : 1 F C A 5+ CM 

, '[1 .■ IHEIINE 1 

1 300 FORF=0TO1 : PUTSPR] rEP.tB. 194 5 . . : HE 

I IF! =1 THtlll 3 30 
1310 H=fi:G=B:F=B!G0SUB273H:E=H :H=M:F=PEE 

-=\ : GOSUB2730 : F=* -<JCM>=-1 5*5 
1 3^0 D=CE-F>+1 :D=D*-CD>0 5:O=20*D¥10: ACM5 
-D+( D=0 5 : 1 F AC M 5 < 1 THEN J C M 5=2 : GOSUB 1 3 
70ELSEGOSUB2 180 

1330 MCA>=M<A>+1+CM<A5>3>: IFB=5THENM=A: A 
>.A.'=ACA5+5:ACA5=ACA5 + CACA),-200.>*CACA5-20 

>:GOSUB2180 

1340 GOSUB2 190: fF0C0CC)>=4T HEN2750 
1350 L0CATE23,A*2+A¥5-2: PRINT" ":NExrzZ: 
1.1=1,1+ i : ifw- 30THEII1050ELSE2750 
i 360 ••• DEAD ••• 

370 «, M>=0:RESTQRE41S0:GOSUB<?90:FW&PR1 
TEM+4. l < H5*16+l .YCM5*16-9 5. 15-CM*6 5*5.4 
i : F 'jRE=0 TO500 : 1 IE *T : VC OC M .' .'=">. 0< M 5 .'+ 1 
1980 PUTSPRI1EM+4.C0, 194 > . . : LOCATE > CMJ 
l*O*2-l:PRlliT2$(05:x<M:>=30:Y<M>=30'-.L 
UCATE24,M*2*M¥5- 1 : KK HIT "DEAD - : JCM5=2: 

E=W: F=l : GOSUB2200 : RE I URN 

14W0 F0R1=IT08:0C1 >=0:NE T:D=0:GOSUB2190 

: lFM<.A5 01HENE=A:F=1+H&A->:GGSUB2®»8:GOTG 

1500 

1410 0NTGOT01 100. 1420. 1420. 1440 

1420 T=T-1 :GOTO 2480 

L430 ' ••• RUN ••• 

1440 FORC=0TO3:DCC5=0:NExT:GOSU62 190 

1.458 F0RO=CT0C+3: IFJC05 '2THENE=xCD5¥6+C Y 

i D>*6>*2:DCEJ«=D<E>+J : NEXTELSENEXT 

1468 C = : f ORD=0 T03 : I FDC D > CDC C 5THENC=D 

1470 1FD=0THEIIF=RNDC 1 .1*2: IFF=1THENC=D 

1488 NEXT: >. 9 5=3-CC=10RC=3 5*5 : YC3 5=3-CC= 

i ;=3>*5: r<A>=9:GOT01128 
1490 ' ••• CHECK 2 ••• 

1500 D=0 : F=0 : G0SUB2 190: F0RM=CT0C+3 : E=ABS 
•: i '.A5-'CM55+ABSCYCA5-YCM55:ONMCA5GOSU615 
40. 1570. 1550. 1570 

1510 NE*T:OHMCA5GOSUB1600. 1600, 1610. 1610 
1520 1FF=0THEH1410 

1530 ONMCA5GOTO1630, 1700. 1760. 1840 
1540 IF-<CA5=xCn5ANDE'.40RYCA5=YCM5ANDE<4T 
HEI ID=D+ 1 : DC M 5 = 1 : RETURNELSEDC M 5 =0 : RETURN 
1550 1FE=1THEND=D+1 :DCM5=1 : RETURN 
1560 IFE=2ANDxCA50XCM5ANDYCA5 0YCM5THEM 
D=D+1 :DCM>=1 : RETURNELSEDC M 5=0: RETURN 
1570 IFE<4THEND=D+1 :DCM5=1 -.RETURN 
1580 tFE=4ANG>X<A>< ,'< CM5ANDYC A50YCM5THEH 
U=D+ 1 : DC M5 = l : RETURNELSEDC M 5=0 : RETURN 
1590 ••• CHECK 3 ••• 

1600 E=RNDC 1 >*9: 1FE.1ANDD>0ORVCOCC5 5+D=4 

1 HEI II =1 : RETURNELSERETURN 

16 10 IFD- 10RVCOCC5 5+D=4THENF=l :RETURNELS 
ERE! URN 

— F IRE ••• 
1630 GOSUBZT90:FORD=CTOC+3: IFDCC)=0THENN 
L 1 :GOTO1410ELSEM=D:FORD=0TO1 : NEXT 
1648 .» = ,; . CA) ':M5 5-CXCA5<XCM5 5:Y=CYCA5>Y 
CM))-CY<AKY<li>0 
1650 F0RC=1 TOABSCx.CA5-xCM5 5+ABSCYCA5-YCM 

; ) 

1660 PUTSPR1TE0. C C XC A 5 + X*C 5*16+1 , CYCA5+Y 
*C .1*16-3 5 . 9 , 37 : FORD=0TO50 : NEXTD. C 

1670 IFB=4THEN2340 

1680 D=15:GOSUB1920:MCA5=-1 : GOTO 1900 

1690 ' ••• THUNDER ••• 

1708 GOSUB2190:FORD=CTOC+3: IFDCC5=0THENN 
EJ 1 :GOTul410ELSEM=D:FORD=0TOl : NEXT 

17 10 REST 0RE4 1 90 : GOSUB790 : FORC= 1 TOYCM 5 
1-720 PUTSPR! EE0-. <X<lt)*lB+l ,0*16-95.9,38 
17 30 FORb=0TO200 : NE> 1 : NEXT 

L740 U=25:GOSUB1920:MCA5=-1 : GOTO 1900 

••• TAIHOOON ••• 
1760 RES1ORE4200:GOSUB790 

I 7','U F0RM=1T03 : x=CM>5 5-CM5 1 ANDM<5 5 : Y=CM= 
90RH 3)-<M 3ANDM'<7) 

1 780' I Fb=6 THEI IPUTSPR 1 TEA+4 , C C XC A 5 + X 5* 1 6 + 
l.<Y' A>+Y>*a6-9>, 15-CA#55*5.51 :GOTO1800 
1790 PUTSPRITE0. C C x C A5 + X 5* 16+ 1 . CYCA5+Y5* 
1 6-S :• . 14. 39 

1800 FORE=0 TO 100: NEXT: NEXT: IFB=6THEN2370 
1810 D=25:GOSUB2 190:FORM=CTOC+3: IFDCM5=1 
IHENGOSUB1920 
1620 IIEx.T:MCA5=-l :GOTO1900 

18 30 ' ••• LIGHTNING ••• 

1840 GOSUB2 190:D=30:FORM=CTOC+3 



1850 IFDCf15=0THENGOTO 1890 

1 860 REST 0RE42 1 : GOSUB790 : FORE=4TO0STEP- 

1 

1870 PUTSPRITE0. C XCM)* 1 6+1- 1 4*E. YCM)* 1 6- 
9-l6*E). 1 1,40 

1880 FORF=0TO20 : NExTF . E : GOSUB 1920 

1890 NEXT:MCA)=-1 

1900 E=A:F=10:GOSUB2200:GOTO1330 

1910 ' ••• DAMEGE ••• 

1920 PUTSPR1TE0. CXC M )* 1 6+ 1 . YCM)*1 6-9 ) , 10 

.36 

1930 RESTORE4180:GOSUB790 

1940 ONBGOTO1950, , 1300.2350. 1300.2380 

1950 I =PEEKC Z+50*M > : H=A : G=3 : F=B : G0SUB27 3 
0:E=k:H=M:F=I : GOSUB2730 : F=K 

I960 G=E-F+1 :G=G*-CG>0>:G=D*G¥10: ACM>=A< 
M>-G 

1970 1FACMX1THENGOSUB1370ELSEGOSUB2 180 

1980 PUTSPR1TE0. C0. 194 J , , : RETURN 

1990 ' ••• CLERIC ••• 

2000 F0RI=1T08:DC I )=0:NEXT :E=A: IFMCA5'0T 

HEI IF=5+MC A ) : E=A: GOSUB2200ELSE 1410 

2010 ONMCA)GOTO2030.21 10.20 30.20 30 

2020 • ••• HP 10R2 ••• 

2030 N=CA¥5)*4+1 : FORF=M+ 1T0M+3 

2040 1FACM)+JCM)*101>ACF)+JCF)*101THENM= 

F 

2050 NEXT: I FACM)> 175-MC A5*25THEN14 10 

2060 REST0RE42 1 : GOSUB790 : FORE=0TO 1 4 

2070 PUTSPRITE0,CXCM>*16+1 . YC M J* 16-9 ) . 5 . 

4 1 : FOR I =0TO60 : NE*T : PUTSPR I TE0 . C0 . 1 94 5 . . 

0:NEXT 

2080 D=-CMCA)=1 )*15-CMCA)>2)*55:MCA>=-1 : 

ACM)=ACM>+D: 1 FACM J>200THENACM)=200 

2090 G0SUB2 180: GOTO 1900 

2 110 F=RNDC 1 )*3: 1FF=0THEN1 4 1 

2120 GOSUB2 190:M=C:FORF=C+lTuC+3: IFACM)- 

JCN>*10 1<ACF)-JCF;*10 1THENn=F 

2 1 30 H=M : K=PEEKC Z+M*50 ) : G=3 : G0SUB27 j0 : F = 

RNDC 1 )*50+k: IFF >40THEN2 150 

2140 RESTORE42 10:GOSUB790: JCMJ=1 :E=M:F=1 

-.GOSUB2200 

2 150 FORE=0TO10:PUTSPRITE0.CXCM)*16+1 .YC 

M)* 1 6-9 ) . 9 . 50 : FOR I =0TO60 : ME/ T : PUTSPR I TE0 

.CO. 194).0.0:NE'T 

2160 MCA>=-1:G0T0 1900 

2 170 ' ••• SOI IOTA ••• 

2180 L0CATE24.M*2+M*5-1 : PRINTUSING'BHtl ' : 

ACM):RETURN 

2190 C=-CA>4)-CA<5)*5:RETURN 

2200 L0CATE23,E*2+E¥5-1 : PRINTN ID$C LS. F . 1 

.1 : RETURN 

2220 F=0 : FOR I = 1 T08 : DC I )=0 : NE ' T 

2230 GOSUB2 190:D=0:FORM=CTOC+3 

2240 E=ABSC XC A )-xC M ) )+ABSC YC A )-YC M .1 > 

2250 ONB-2GOSUB1540. 1540. . 1550: IFE-1THEN 

F=F+1 

2260 NEXT: IFD=0THENONB-2GO1 02320 , 2450 , .2 

530 

2270 ONB-2GOTO2280 .2330 . . 2360 

2280 I=RNDC 1 5*10: 1FI - 3ANDF /0THEN2320 

2290 I=0:FORC=CTOC+3: I FDCC 5=0THENNE - 1 ELS 

EMsG:NEXT 

2300 F=28-CXCAXXCM))*2-CYCAXYCMJJ*4-CX 

C A> > XC M ) 5*6 : x=C F=34 5-C F=30 ) : Y=C F=28 >-< F= 

32 5:E=ABSCXCA)-«CM))+ABSCYCA)-YCM5) 

23 10 REST0RE4 180: GOSUB790 : FORC= 1 TUE : PUTS 

PR] r E0 . '. •- - c. A .) + x *C .' * I b -* 1 . ■ , (.fOI :*:.<* 16-9) 

. 10.F:FORD=0T'.'50:NE TO.C :G0TO1928 

^.^0 0NTGOTO1 100. 1440. 1 100. 1 100 

^:JV) [=RNO< 1 j+10: IF1 JANDF=0THEN1630ELSE 

2450 

_340 A. ll.i=A'.M ) ■■ 13: GOSUB 1920 

_.i50 G05UB 1978: GOTO 1338 

2360 IFD' 2THEN2530ELSE1770 

2370 GOSUB2570:FORM=CTOC+3: IFDCM5=0 I HENN 

EXT : GOTO 1 330ELSE 1920 

2380 ACM'.'=ACM5-10:GOSUB1S70:NE-T:GOTO133 



2390 ' <HM» LIZARD ••• 

2400 F=0 : G0SUB2 1 90 : D=0 : F0RM=CT0C+3 

2410 E=ABSCXCA5-XCM55+ABSCYCA5-YCM)5: 1FE 

=1THEND=D+1 :DCM>=1ELSEDCM)=0 

2420 IFD^0THEN1200 

2430 F0RM=CT0C+3 

2440 E=ABSCXCA5-xCM>>+ABSCYCA:.-YCN.i.': IFE 

=21HEN2130ELSENExT 

2450 0NTG0T01 100, 1 100. 1 100.2500 

2460 ' ••• DEVIL ••• 

2470 ONTGOTO2480 . 2480 . 2490 . 2500 



2480 IFA.A.i 20 + T*40THblll440 

2490 GOSUB2590 : GO I 01 120 

2500 1FTC A>=0ORJ CTCA > )=2THENa490EL8E 1120 

25 10 " ••• II. ARMOR ••• 

2520 IFACA5 60ANDT = J I HENJC A ■ = - 1 : PUTSPR1 1 

LA-14. CxCA)*16+l,YCA>*16-9P, 15-C A»5 >*5 . 5 1 

:GO1O1350ELSE2220 

2530 JCA)=0:ONTGOTO1 100.2500.2490. 1 100 

2540 ' M»HYOJ! ••• 

2550 L0CATEE*2.F*2-1 :PR1NTZSC05 

2560 LOCATE.- C A 5*2. YCAj*2-1 :PR1NTZSC0CA5 5 

2570 PUTSPR 1 TEA+4, •: x.CA5*16+l . YCA5*l6-9.> . 

1 5-C A¥5 5*5 . B*4+HC A 5 : RETURN 

2580 ' ••• RND ••• 

2590 GOSUB2 190:D=RNDC 1 5*4+C: IFJCD5=2THEN 

2590 

2600 TCA5=D: RETURN 

26 10 • ••• CLERIC. T ••• 
2620 G0SUB2l90:FORM=eTOC+3 

2630 E=PEEKCZ+50*M5: H=E 20RJCM5=2THENNE 
T:GOTO2590ELSETCA5=M:FORH=0 TO I .HE I :RE1 

URN 

2640 ' ••• HP ••• 

2b50 GOSUB2190;FORM="^ 11 O'. * J 

£66.0 ifa':l m j,. i. ,*un A'.ii.'t j..n.'*i0i iHbiK= 

M 

26?0 HE T : T" A>=C :hEIURN 

26WU ••• HEAR ••• 

2690 G0SUB2 1 90 : E=3 : FORH=CToC +3 

2700 F=ABSC CA5- CM> 5+ABSC YCA5-Y<M>> : IFE 
FAHDJCM5<2THENC=I1:E=F 

27 l NEXT : T C A 5=0 : RETURN 

2720 ' ••• SU-GI ••• 

2730 K=PEEKCZ+F*4+G5+PEEKCZ+H*50+G+3 5:RE 

TURN 

2740 ' ••• GAME END ••• 

-760 RORA=0TO4 : REST0RE42 10 : GOSUB790 : FORB 

=0 I 050 : NEXTB . A : CLS : GOSUB650 : KEYC 1 50FF 

2760 LOCATE 1 1 .0:PR1NT"WINHER!" 

2 770 FORA=0TO 1 : LOCATEA* 1 4+4 . 2 : PR I NTNSc A 5 

:IIE T 

2780 FORI=0TO1 : PC 1 - I 5=0 : FORA= 1 T04: B=PEEK 

CZ+C 1*4+A5*50 5:PUTSPR1TEI*4+A.C 1*112 + 16. 

A*32-l 5, 15-1*5, B*4+2 

2790 L0CATEI*14+5,A*4+1 : PR1NTUSI NG"HttH-'2 

00";AC 1*4+A5:A$="":F0RH=1T07 

2800 G=PEEKCZ+C I *4+A5*50+ 1 0+H 5 : AS=A$+CHR 

SCG5:NEXT:PC 1-1 5=PC 1-1 5+100-AC I*4+A5¥2-C 

AC 1*4+A5<1 5*150 

2810 LOCATE 1*14+5. A*4 : PR I NTAS : NEXT : LOCAT 

EI* 14+3. 19: PR1NT"P0INT":IIE>- T 

2820 FOR 1=0 TO 1 :FORH=0TOPC 1 5STEP 10 : G0SUB2 

'J 10: BEEP: HE^ T : H=PC I 5 : GOSUB29 10 : NEXT 

^Wl® IFPC0 5=PC 1 5THEN2900 

2-840 FOR I =0 1 02 : VPOKE8204+ I . 1 7 : IIE> I : I =-C P 

'0.' PC 1 5) 

2850 E=0:F=0: .'.= 1 : Y=3 : FORH= 1 T056 : IFH=10RH 

-12ORH=29ORH=40THEHXX=CF=2 5-CF=0 5:YY=CF= 

J.i c.F=l 5:F=F+1 

2860 LOCATE 1 * 1 4+ ,», . Y : PR I NTCHRSC 96+8*E 5 : E= 

E-H + C E=2 5*3 : X=> +x X : Y=Y+YY : NEXT 

2870 FORA=0TO4 : REST0RE42 1 : GOSUB790 : FORB 

= 0T'j50:NE/TB.A:PC0 5=65:PC 1 5=97 : PC 2 5= 193 

2880 FORI=0TO2:VPOKE8204+I .PC I 5: NEXT: SWA 

PPC0 5.PC 1 5:SWAPPC0 5.PC2 5 

2890 1FNOTSTRIGC05THEN2880ELSE1 10 

2900 LOCATE0,9:PR1NTSPCC42 5■' DRAW "S 

PCC42 5 : REST0RE4 190 : GOSUB790 : GOTO2890 

29 10 L0CATEI*14+8. 19 : PRINTUS I NG"HttttH" : H: 
RETURN 

2920 ' ••• LOAD DATA ••• 

2930 CLS:FILES"*.ZZZ" 

2940 ONERRORGOTO2960:LOCATE10. 13:PRINT"L 

OAD I3ATA"SPC<565" " : A=8 : w=10 : R=14 

- G0SUB8 1 

-360 BS=6S+-\ZZ2":BLOADB$:GOTO320 

2960 BEEP:RESUME2930 

2970 ••• SPRITE DATA ••• 

2980 DATA 40.46.4F.0F.60.EF.2F.4F, 

66. 09. 0B. 03. 08. 03 

2980 DATA 00.00.00,00.66 

00 . 00 . 00 . 00 . 00 ,00 

J000 DATA 00.0C.0E.0E.66.F0.36.C7 

6E.06. IB. IB. 22. 13 

30 10 DATA 40.40,40.40.40,40,40,40 



I.6F. 



. 40, A0.20.40. 



3E.66 



3020 DATA 00 
3b.09.0D,0C, 
3030 DATA 20,2 
60.00.00.00,00.00 
3040 DATA 80. 8C. 90.5'; 
1A.00. 36. 36. 1 1 . 32 



86 . 0F . 0F , 66 . E9 , 2F . 5F , 09 , 36 . 
1 ,0C 

20 . 20 . 20 . 20 , A0 . A0 . 00 . 60 . 



59,43.2C.2B, 16.69. 
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3050 DATA 00,00.00. 
00. 00. 00. 00. 00. 00 

3060 DATA 00.06.06. 
II . 1F-.3F.3F. 3F. 3F 

jiavu data 00.00.00. 
uo , U0.C-B .'-0 .Co .'.0 

JUDU DATA 00.0b.0t., 
IB. 18. IB. 31 .35.35 
3090 DATA 00,00.00 
60.60,00 .80.00,30 
3 100 DATA 00,06.06 
35. 30. 2D. 2C. 61 , 6C 
3 1 10 DATA 00 .00 .00 
80,40.40.40.60 .60 
J1_0 DATA 00,06.06 
6D.6 1 .OD. 18.0A, 1A 
J 130 DATA 00.00.00 
80 .30.80.C0.C0.C0 
3140 DATA 00.06.0F 
3F.3F.7F. 3F.40.3F 
J150 DATA 00.00.00 
00, CO, E0. 00. 20, CO 
3160 DATA 00, 06, OF 
34. 37. 33,35,45,35 
3170 DATA 00,00.00 
80.00 ,00,80.00.80 
3180 DATA 00. 06, OF 
37. 30. 4B, 63, 68, 63 
3130 DATA 00,00,00 
40,40,60,60.60,60 
3200 DATA 00, 18.3C 
4B,3B.33,6B.28,6B 
32 10 DATA 00,00.00 
00 . 00 . 00 . 00 . 80 , 00 
3220 DATA 06,06.06 
36.41 .39,02, 18,03 
3230 DATA 00.00.20 
80, 30 .30.80 .00,00 
3240 DATA 38, 1C.86 
C3.06. 15.0B.32. IB 
3250 DATA 00,00.00 
C0 , 00 . 20 . 00 . 00 . 00 
3260 DATA BC.BC.52 
59. 62. 6A. 58. 02. 18 
3270 DATA 00,00,00 
40 . 20 . 00 . 00 . 00 . 00 
3280 DATA 01 ,03.86 
19,06.06,01 .02, 0E 
3290 DATA CO. 80. 00 
60,60,80,C0,60,C0 
3300 DATA 00, 0C, IE 
2D, 0D. 36. 36. 16.33 
3310 DATA 00,00.00 
00 , 00 . 00 , 00 . 00 . 00 
3320 DATA 00. 06. OF 
1A.23.6C.47,D1 ,9B 
3330 DATA 00.00.00 
60 . 60 . 00 . 00 . 00 . 80 
3340 DATA 00, 06, OF 
b6, 69, 15.06. 15.05 
3350 DATA 00.00.00 
30 .00 , 80 . 30 . 00 . 80 
3360 DATA 00. 0C. IE 
b2, 18.06. 1C, 1 1 . 3B 
3370 DATA 00.00.00 
80. 80. C0 .40.60.20 
3380 DATA 00.Crt.E4 
1B.00.00.3F.7F.3F 
3390 DATA 00.60.E0 
00 . 00 , 00 . 80 . CO , 80 
400 DATA 00.6i.F2 
.00 .00 . Jf- . VI . 31 
410 DATA 00.00.C0 
. 00 .00.80.i-0.30 



00 .80.C0.00 ,00 
06. 06. 6b. 30, 0F. 
00 . 00 . 60 . C0 . 00 . 
07.0J.7_. lb. 04, 



00 .00. 
0F. IF. 
00.80. 
0D.0D. 



06.06.60. 3b .00 
00 . 00 . 60 . CO . 00 

0E„jae,»4,Go,02 

00,00. E0. 80 .00 
OF. 16. 19.06. IF 
00.80.80.00.80 
OF. -16. 18,00,13, 

00 . 00 . 00 . 00 . 00 
OF. 16. 13.06. 13 



16. 15. 
40.80, 

IB, lb. 

00.00. 
II . 3F. 

a , C0 , 

IB. 1A. 
00.80. 
36. 0E. 
CO . CO . 



3C. 1A.06 
00 , 00 . 00 
09.E6.7 1 
40. AO.AO 
48. 2E, 36 
00.00.00 
IE. ED. 53 
00. CO. 80 
41 ,27.36 
00.00.E0 
D2.6D. IE 
E0.C0.00 
07.77. 3A 
00.00. CO 
6F ,E6 ,06 
40 . 60 .00 
1 C . L'D . C b 
00 .CO .30 
2t.3F.4E 
80.80.40 
73. 0B. IF 
EO .60.80 



,20. 8_ 
.00.00 
.0B.26 

.00.1.0. 

,59,6D, 

,00 .00 
. l'-,5E, 
. 00 . CO 
,13.06 
, CO . 00 
. BF.B3 
,40.00 
.01.lt. 
.'-0.30 
. D0 . CD 
,'.0.40 
.70. lb 
.00.00 
, 35 ,71 
,80,00 
, 37. 5B 
.00.60 



36.56, 

00.00. 
_>- .lb. 
00 .00 . 
16. DA. 
00. CO. 
b 4 . IB, 

00.00. 
0E. 17. 
CO . 40 . 
00 . AO. 
CO . CO . 
0b. 19. 
00.80 . 
5C, lb. 
80.40. 

00 .00. 
LO.Ub. 
E0.60. 
7'- .60. 
t0. 00. 



:4_0 DAI A 0O.DB.t4.2E.75.bE, 
b 1 . 00.00. 3F .7F.3F 
3430 DATA O0. 60. tO. 30. C0.C0, 
A0 . 00. 00. 80. CO. 80 
j440 DATA 00. 18.63 . t3.DA.3F, 
1 . 00.00, 3F/7F.3F 
3450 DATA 00. CO, t0, CO, 00, 00, 
80.00 .00. 80. CO. 80 
3460 DATA 00 , 0A. 1C . 4F , 36 . 35 , 
D2.BF. 13.6C.2C.E6 
3470 DATA 00.00.00.00.80.80, 
C0 . -0 .00, CO. 80. E0 
3480 DATA O8.0D.0D. 13. 1E.3D, 
5A-, 35 .4A.b8.D6.87 

3490 DATA 00.20. A0 .'.0. 40 .A0, 
B0 ,60 .00 . 40 .60 .60 

.500 DATA 1 .0B.3B.6C.6B. 19. 
40. 58. 80, Dl .bB.DB 
3510 DATA 00 .00.00. A0. 60. 60, 
40 .40 ,20. 60 . 40 . 60 

_ DAtA 02. 36. Bb. 73.4V- . E7 . 
2_.,U5,0A,42,CD,DC 

1530 UAIA 00.00.00.00.00.20. 
40.80.40. 00.60.20 
3540 DATA 00.00.0 
04.06,06.06.06.06 
3550 DATA 00, 
00 . 00 . 00 . 00 . 00 . 00 
3560 DATA 00.00.00 
04.08. 18. 30. 60. C0 
3570 DATA 00.00,00 
00 . 00 . 00 . 00 . 00 . 00 
3580 DATA 00.00.00 
00 . 00 .00 , 00 . 00 . 00 
3530 DATA 00.00.00 
00 . 00 . 00 , 00 . 00 . 00 

•:&00 DATA 80, CO. 60 
00 . 00 . 00 . 00 . 00 . 00 

3610 DATA 00.00.00 
00.00.00.00.00.00 
3620 DAI A 00 .00.00 
00 . 00 .00.00. 00 . 00 

1630 DA I A 00.00.00 
00 . 00 . 00 . 00 . 00 . 00 
3640 DATA 00.00,00 
00.00.00.00.00.00 
3650 DATA 20.60.C0 
00.00.00 .00.00.00 
3660 DATA 00,00.00.00.00.00, 
00.00.00.00.00.00 
3670 DATA 00.00.00,00,00.00, 
00 . 00 . 00 . 00 , 00 . 00 
3680 DATA 00.00,00.00.00.00, 
04 . 03 .0 1 . 00 , 00 . 00 
3690 DATA 00.00.00.00.00.00, 
00.00.80.00.60.20 
3700 DATA 00.00.00.40.3 1 . 3F, 
3 1 . 40 . 00 . 00 . 00 . 00 

)710 DATA 00.00.00.40.80.80, 
80 . 40 . 00 . 00 . 00 . 00 
3720 DATA 00 , 00 . 00 , 00 . OE , IB, 
0E. 00. 00. 00 ,00.00 
3730 DATA 00,00.00,00,00,00, 
00.00.00.00.00,00 
3740 DATA 04. 04. 04, 0C. 08, 14, 
28, 24, 8A, 09, 10, 10 
3750 DATA 00.00,00.00.00.00. 
80 . 80 . 00 . 00 , 00 . 00 
3760 DATA 00 . 3F . 40 . 5F . 20 . 1 F , 
10. OE. 00. 00. 00 .02 
3770 DATA 00. 00. CO, 40. 80, 40, 
00 . OO , 00 , 00 , 00 , 00 
3780 DATA 00. 00, 00. CO. EO. 70. 
03,0] .00.00.00.00 



00 . 00 , 00 . 00 


00 .00 . OO 

00 . 00 . 00 

00 .00 . 00 

00.00 

13.04 
00.00 
00.04 
00.00 
01 .02 
00 .00 



D5 . DB , 
,60,60. 
, 1D.DB, 

, 30 . 40 , 
,4D,72, 
, 40 . 00 

6D.6E. 
, A0.60, 
. 7F.60. 

A0 . 00 . 

bb.'.E. 

,C0 .00. 
00.00. 
00.00. 
00 ,00, 
00,00, 
FF.F8, 
00.00 , 
02.00, 
00.00. 
04.04, 
00.00, 
04.00 . 
00.00 . 
03. IF, 
E0.E0. 
00.00. 
00 .00. 
IF. IF. 
00.00. 
35. 2E, 
80,80, 
2A.49, 

00.00, 
00. OF , 
80.00, 
33. 10, 



4A.B1 
40, AO 
E7 . 06 
C0.C0 
2D.6D 
00.40 
IF ,67 
8 0.60 
DF . AO 
6 0. AO 
3F , DC 
00.00 
04,04 
00,00 
00.02 
00.00 
00.00 
00.00 
00.00 
00 .00 
00.00 
00.00 
OO .00 
00.00 



00.08 
00.00 
IF . JF 
00.30 
35, IB 
30.00 
12, 15 
30.00 
10, OF 
80 .00 
0E.07 



3790 DATA 00,00,00,00.00.00,00.00.00.00 
80 . '-0 . EO . 60 . 00 . 00 

3300 DATA 00. 40. EO. 43. 00. 02. 07, 02. 20. 00 
04.00. 10. 38. 1 1 ,00 

3810 DATA 00.00.40.00.00.00.00.00.80.00 
40. EO, 40, 00. 00, 00 

3820 DATA 00, 22. 72. 3E. IE. IE, 7E. 00. 00. 00 
00 . 00 . 00 , 00 , 00 ,00 

3830 DATA 00,00,00.00.00.00.00.00,00.00 
00.00.00.00.00.00 

3840 DATA 7F.7F,7F.70,70,70,70,7F,7F.7F 
70.70,70,70,70.70 

8850 DATA CO, CO. CO ,00,00.00 .00, 80.30,80 
00 , 00 , 00 . 00 . 00 , 00 

3860 DATA 7F . 7F . 7F . 1C . 1 C . 1C . 1 . 1 . 1 . 1 
IC. IC, 10 .7F,7F,7F 

3370 DATA 00.00,00,00.00.00.00.00.00.00 
OO . 00 . 00 . 00 . 00 . 00 

.-1880 DATA 1E.7F.7F.F3.E1 .tl , t0 . tO , t0 , E7 
L'.'-bl .FJ.7F.7F. IE 

J390 DATA 00. 80. 30, 00. 00. CO. 00. 00, 00. CO 
i.0 . i_0.C0.C0.C0.C0 

3300 DATA E3.E3.E3.E3.E3.E3.FF.FF.FF.E3 
bJ.LJ.EJ.LJ.E3.t3 

3910 DATA 80.80,80,80,80,80,80,80,80.80 
80,80.80.80.80.80 

3920 DATA FF.FF.FF, IC. IC. IC, IC. IC. 10. 10 
1 C , 1 C , 1 C , 1 C , 1 C . 1 c 

3330 DATA 80,80.80.00.00.00.00.00.00.00 
00 , 00 , 00 . 00 , 00 , 00 

3340 DATA FE . FE, FE . FE . FE . FE , FE . FE . 00 . 00 
00,00.00.00.00.00 

3950 DATA 00,00,00.00.00,00.00.00.00.00 
00 . 00 . 00 . 00 , 00 , 00 

3960 DATA 00.00,00.00.38.03,OD.23.5C.AA 
AA. 50, 55. 1 .06.38 
i970 DATA 00.00,00.00.00.30.40.40.60.80 

00 . 80 . 80 . 00 . 00 . 00 

3980 DATA F8.08. 1 . 20 , 40 . 80 . F8 . 00 . IE. 04 
08, It, 80. 03. 01, 03 

3990 DATA 00.00.00.00.00.00.00.00,00.00 
00 . 00 . 00 . 80 . 00 . 80 

4000 DATA 05. AD . 6D . 7 3 . BF . DF , DF . 50 . BB . FB 
PC .Ml .6F.6F.53.0D 

4010 DA I A _0. 00. tO. tO. DO. BO, B0, CO. 70. 70 
I- . 10. DO , A0.60, 20 

4020 ' ••• CHARACTER PATTERN ••• 
4030 DATA 16.16,254.124.56.124.198.00 
4040 DATA 24,00,126.66.90.90.66.126 
4050 DATA . 16 . 24, 28 ,30,28 , 24, IS 
4060 DA .A . . 24. 36 . 44. __'4 , . 
4070 DATA B. 12. 24. 56 .'12. 24. 48,0 
4080 DATA 0. 124, 0.5b. 0,24,0. 16 
-1030 DATA 0.68. 34. lb. 3. 68. 84. lb 
4 1O0 DATA 0,90,90.60,24.60.66,66 
4 110 DA I A . 1_:0. lb . 32. 120.0O.2.00 
4120 DATA 0.90.90.56.22,50,68.70 
4180 ' ••• SONOTA DATA ••• 
4 14 DATA F I GHTER . I 8 , 9 , 2 , 3 , W 1 __ARO . 9 . 7 . 8 . 
19 . LER 1 . 1 1 . 8 . 7 . 1 5 . ELF .16,3. 11. 8. LI ZARD 
.17.10.3,1. DEV I L . 16.7.9.6.11. ARMOR ,14,12, 

1 .0 

4150 DATA 1.81.2.31.11.137.12.170.13.153 

. 14. 136. 15. 102. 16. 17 

4 160 DATA " ".-.-. . .?.•.'"« 

4170 - ••• SOUND DATA ••• 

4130 DATA 64.00 . B'. . 02 .4'. .04. 13 . 0_. . 10 . 10. 

10.58.02.04 

4 1 90 DATA FF . OF . FF" . OF . 00 . 00 . 1 F . 30 . 1 . 1 O . 

00. 10,27,00 

4200 DATA FF.0F . AO .OF . J'_ .OF .00 .0 ,' . 10 , 10. 

10 .50. 3 3.04 

4210 DATA 64.00.41 .00. 4F.M0, 00. 38. 10. IB, 

00. 10, 27 , 00 





RADIUS'30S 



mittmz] 05^-yc 



1 ',' POTAGERADIUS 30 'S 1991/12 RPC. SUZU 
KI ! SS/KIYOMIZU RFAN ! 

2 '! SEALED MAP 'PAY ISLAND III'. 'DEVOTI 
ON TO SPLENDOR BLAST' | 

3 CLEAR999, &HBFFF : DEFINTA-Z : KEY1 , "WIDTH8 
0:LIST":OPEN"GRP:"AS#1 :C0L0R15, 0, 0:CLS 



4 SCREEN8 : I =&HC000 : F0RY=3T034 : FORX=0TO3 1 
:SX=84+X*3+ (X- 1 6) * (Y*Y/240) + (X> 1 5) 

5 SY= (Y*Y) /8+55 : PSET (SX, SY) . 1 28+X+ 1 : POKE 
I. SX:P0KEI + 1. SY: I = 1 + 2 :NEXT : NEXT 

6 A=&HD000:DEFUSR=A:RESTORE100:A$ (8) ="§" 
+CHR$ (160) +"@":C$="PLEASE LOAD COURSE" 



7 FORI=0TO35:READA$:FORJ=0TO34:POKEA. VAL 
("&H"+MID$ (A$, J + J+l. 2)) :A=A+I :NEXT:NEXT 

8 INPUT" INPUT WAIT (R800- 1 /Z80=0) " :A: Z=A 
*600+USR (0) :SCREEN2, 2. 0, , . 1 

9 FORI=0TO7:CLS:IFI>3THENFORJ=0TO24-I*3: 
PSET (RND ( 1 ) * 1 6, RND ( 1 ) * 1 6) : NEXT 

10 IFI<4THENCIRCLE(7, 7), 1+4: PAINT (7. 7) :F 
ORJ=0TOI+3:CIRCLE(8, 8), J. 0:NEXT 

1 1 FORJ=0TO31 :A$ (I) =A$ (I) +CHR$ (VPEEK (-25 
6* (JM0D16>7) -8* (J> 1 5) +JM0D8) ) : NEXT: NEXT 

12 '--- TITLE - — 

13 C0L0R15, 0. 0:SCREEN8, 2, 0:RESTORE18 

14 SETPAGE0. 0: DRAW'Cl 28S4A0BM22, 1 6R186F1 
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8D30L 1 86H 1 8U30" : PAINT (33. 33) . 64, 1 28 

15 PSET(64. 30), 64, TPSET:COLOR255: PRINTS 1 
. "POTAGE RADIUS" 

16 COLOR239:DRAW"BM80. 45" :PRINT#1. "by su 
zuki oishi" 

17 FOR I =0TO4 : READAS : PSET (64. 90+ 1 * 1 8) , 0, T 
PSET:COLOR254-I :PRINT#1, A$:NEXT 

18 DATA 1. Participate, 2. Hard editor. 3. Co 
urse manager. . PUSH NUMBER KEY 

19 ONVAL (INKEY$)GOT049, 20. 74:GOT019 

20 ' COURSE EDITOR --- 

21 SCREEN0 : GOSUB82 : PR I NT "viOH •?<*: SPACE 
7?7y5?n:OTHER" 

22 IFINPUTS (1) =" "THENGOSUB86ELSESCREEN8 

23 SPRITES (0)=A$ (8) : FORI =0TO255: LINE (I. 
) - (I. 7). I:NEXT:I=0 

24 AS=LEFTS (INKEYS + "! ", 1) :A=PAD(12) :V=X: 
W=Y:X=X+PAD(13) :Y=Y+PAD(14) : 1 = 14-1 

25 IFX>255THENX=255ELSEIFX<0THENX=0ELSEI 
FY>21 1 THENY=21 1 ELSEIFY<0THENY=0 

26 PUTSPRITE0. (X-l , Y-2) . 1 5-1, :PUTSPRITE 
2. (C- 1.0). 15. 0:COLOR. ,C 

27 IFSTRIG(l) THENIFY<8THENB=X:PUTSPRITEI 
. (X-l. 3). 15. 0ELSELINE(V, W) - (X. Y) , C 

28 IFSTRIG(3) THENI FY<8THENC=XELSEC=POINT 
(X. Y) 

29 ONINSTR("PSL12G", A$)GOSUB43. 44. 45. 46. 
47, 48: IFA$<>" "GOT024 

30 LINE (0. 0)-(255. 8). 0, BF : BEEP :COPY (0, 0) 
- (255. 216). 0TO(0. 0). 1 :SCREEN0 

31 INPUT"COURSE NAME (1 -30t •>' ) " :C$ 

32 INPUT "HOW MANY ENEMYS (1 - 1 5) " : A: INPUT 
"& POWER" :C 

33 INPUT"FILE NAME (Mfj 1 )') 73-)) " ; F$ : PRIN 
T"7v>i5->7^A (Y/N) " 

34 IFINPUTS (1) ="Y"THENFS=LEFT$ (FS + " 

". 8) +"RAD" :B=1ELSEF$=FS+". SR8" :B=0 

35 SCREEN8:SETPAGE1. I : VPOKE0, A: VPOKE255, 
C: SPRITES (0) =A$ (8) 

36 FORI=1TO30:VPOKEI, ASCfMIDS (CS+STRINGS 
(30. 32), I, 1) ) :NEXT 

37 FORI=1TOA:J=PAD(12) :X=X+PAD(13) :Y=Y+P 
AD (14) :PUTSPRITE0. (X-1.Y-2). 15.0 

38 IFINKEYSo" "THENI = 1- 1 :NEXT 

39 PUTSPRITEI, (X- 1 . Y-2) . 1 5, 0: VP0KE257+I + 
I.X:VPOKE258+I + I. Y:NEXT 

40 FORI=0TO2:H$ (I) =MID$("neko kazuyo 
morisawa". 1*8+1. 8) :HS (I) =35:NEXT 

41 VP0KE31, V:VP0KE32, W:GOSUB97: IFB=0THEN 
BSAVEFS, 0. &HD3FF. SELSECMDE0, &HD3FF. F$ 

42 G0T012 

43 LINE(0. 8) -(255. 8). CrPAINT (X, Y) . C, B:RE 
TURN 

44 COPY (0. 0) - (255. 216). 0TO (0. 0) . 1 : RETURN 

45 COPY (0. 0) - (255. 21 6) . I TO (0. 0) . : RETURN 

46 D=X:E=Y:PSET (X. Y) . C:RETURN 

47 LINE (X. Y) -(D. E).C: RETURN 

48 LINE(X, Y) - (X+ 1 2. Y+9) . 255. BF:LINE(X+6. 
Y+1) - (X+12. Y+8). 254, BF: RETURN 

49 '— - PLAY 

50 SETPAGE0, 1 : A$=CS : EN=VPEEK (0) :CMDB0: IF 
LEFTS (C$, 5) ="PLEAS"GOT012 

51 I=&HC800:FORA=0TO15:POKEI. VPEEK (258+A 
+A) :POKEI + l. 0:POKEI+2. VPEEK (257+A+A) 

52 POKEI+3. 0:POKEI+4. 0:POKEI+5. VPEEK (255 
) : I=I+6:NEXT 

53 POKE&HDD00. VPEEK (32) :POKE&HDD02. VPEEK 
(31) :POKE&HDD0I, : POKE&HDD03. 

54 SETPAGE0, :CLS :COLOR255: DRAW"BM9, 80" : 
PRINTS1, A$:PUTSPRITE0, (128. 88). 5, 2 

55 DRAW"BM140, 94" :PRINT#1. EN: FORI =0TO7 : S 
PR1TES (I) =A$ (I) :NEXT 



56 FORI=0TO31 :COLORSPRITE (I) =5-RND(l)*10 
* (1>15) :A=SQR (9) :NEXT 

57 CLS:PUTSPRITE0. (1 20, 82) . 4, 1 : LINE (1 . 1 4 
)-(254, 209), 109, B 

58 CMDA:F0RI=16T0239STEP2:LINE (I. 2) - (I, 7 
). 96:NEXT:TI=239:B=0 

59 CMDA:A=POINT (127, 95) : TI = TI + PEEK (&HCFF 
F) *10:B=1-B:TI=TI-B:LINE(TI. 2) -(TI, 7), 

60 IFA=254G0T066ELSE I FA=255THENT 1=10 

61 IFA>0ANDA<>109THENCOLOR, . 28:TI=TI-8: L 
INE (TI, 2) - (TI+8, 7) . 0, BF: COLOR. . 

62 FORI=0TOZ:NEXT: IFT I>1 5GOT059 

63 '--- RETIRE — 

64 PUTSPRITE0. . 0: FORI =0TO9 :CIRCLE (1 27. 90 
). I. 252:NEXT 

65 FORI=0TO8:CIRCLE(128. 91) , I. 0:NEXT:FOR 
I=0TO1 :I=-STRIG(0) :NEXT:GOT012 

66 " GOAL 

67 FORI=0TO50:COLOR, . (IMOD2) *255: NEXT : VP 
OKE-1536, 21 6 :A=TI- 1 5: IFA>255THENA=255 

68 FORI=0TO106:LINE(I. I) - (255-1. 209-1). 2 
55. B: LINE (I. I)- (255-1. 209-1). 0, B:NEXT 

69 DRAW"BM50, 80":COLOR21 1 :PRINT#1. "YOUR 
SCORE" : :COLOR255:PRINT#1. INT(A*4. 3) *10 

70 IFSTRIG (0) =0GOTO70ELSEFORI=0TO2: IFA<H 
S(I)THENNEXT:GOT012 

71 SCREEN0:CMDC: INPUT "INPUT YOUR NAME": A 
$ 

72 FORJ=2TOI + 1STEP-1 :H$ (J) =H$ (J-l) :HS(J) 
=HS(J-1) :NEXT 

73 H$ (I) =A$:HS(I) =A: I =9 .-NEXT : SCREEN8 : SET 
PAGE0, 1 :GOSUB97:GOT012 

74 '--- COURSE MANAGER --- 

75 CLS:DRAW"BM8. 32":COLOR21 1 :PRINT#1. CS : 

76 FORI=0TO2:PSET(40, 50+1*1 1). 0:COLOR254 
-I :PRINT#1. "No. ":I + 1 :A=HS(I) 

77 PSET (88. 50+1*1 1). 0: PRINTS!. INT (A*4. 3) 
*10: PSET (146. 50+1*1 1 ). 0: PRINTS! . H$ (I) 

78 PSET (90. 100+1*13). 0:COLOR1 48: PRINTS1 . 
MIDS ("1. LOAD2. SAVE3. EXIT". 1*6+1. 6) :NEXT 

79 A=VAL (INKEYS) : IFA= 1 THENGOSUB86ELSEIFA 
=2THENGOSUB96ELSEIFA=3GOT012ELSE79 

80 G0T074 

81 "--- SUB ROUTINE --- 

82 COLOR 1 5 : SCREEN0 : WI DTH40 : ONERRORGOT085 

83 PRINT". SR8=" :FILES"*. SR8" : PRINT : PRINT 
:PRINT". RAD=":FILES"*. RAD" 

84 CMDC:LOCATE0. 1 6, 0:ONERRORGOTO0 : RETURN 

85 PRINT"NO FILE":RESUMENEXT 

86 GOSUB82:X=0:Y=0 

87 LOCATEX. Y:A=ASC (INPUTS (1)) 

88 X=X+13* ( (A=29ANDX>0) - (A=28ANDX<25) ) : Y 
=Y+ (A=30ANDY>0) - (A=31 ANDY<20) 

89 IFA<>32GOTO87ELSEF$="":FORI=0TO1 1 :F$= 
FS+CHRS (VPEEK (X+Y*40+I) ) : NEXT 

90 SCREEN8:SETPAGE0, 1 

91 IFRIGHT$(F$. 1 ) ="D"THENCMDF0. &HD3FF, LE 
FTS (FS. 8) +RIGHTS (F$. 3) ELSEBLOADFS. S 

92 C$="":FORI=1TO30:C$=C$+CHR$ (VPEEK (I)) 
:NEXT 

93 FORI=0TO2:H$ (I) = "" : FORJ=0TO1 2: H$ (I) =H 
$ (D+CHRS (VPEEK (512+I*256+J)) : NEXT 

94 HS(I) =VPEEK (1280+1) :NEXT 

95 COPY(0, 0) -(255, 217). 1 TO (0. 0) . :SETPAG 
E0, 0: RETURN 

96 SETPAGE0, 1 :CMDB1 09 :CMDE0, &HD3FF. LEFTS 
(F$, 8) +"RAD":SETPAGE0. 0: RETURN 

97 FORI=0TO2:FORJ=0TO15:VPOKE512+I*256+J 
. ASC(MID$ (H$ (I) , J+1. 1)+" ") :NEXT 

98 VPOKE1 280+1, HS ( I) AND255: H$ (I) =LEFT$ (H 
$ (I). 13) .-NEXT: RETURN 

99 "--- ML DATA 



100 DATA 21B4D21 1 0DFE010500EDB0C923E5AFC 
DD500B720051 1 00001 80A21 93D4475E2356231 

101 DATA FA3A01DD82FE0520023E04FEFB20023 
EFC320 1 DD2 1 00DD863200DD3A03DD83FE052002 

102 DATA 3E04FEFB20023EFC3203DD2102DD863 
202DD2100DD7ED60F5723237ED60F5FEBF31 100 

103 DATA C00E200620E5CD80D2081A6F131A671 
308CD9AD2E 1 2C 1 0ED7DD6206F240DC26CD02 1 00 

104 DATA DD5623235EEBCD80D2B7281EFE6D281 
A3A0 1 DDCB2FED44320 1 DD3A03DDCB2FED443203 

105 DATA DD21BFD4CD59D4AF32FFCF2100CF110 
1CF017F0036D9EDB0DD2100C81 1 00CF061 0DD7E 

106 DATA 04FE02CA54D2B7CA4AD13A00DDDD4E0 
0CD73D2DD860 1 FE0420023E03FEFC20023EFDDD 

107 DATA 77013A02DDDD4E02CD73D2DD8603FE0 
420023E03FEFC20023EFDDD7703DD7E00DD8601 

108 DATA DD7700DD7E02DD8603DD77023A00DDD 
6304FDD7E0091FE6038183A02DDD6304FDD7E02 

109 DATA 91FE60300AAFDD7704DD7701DD77033 
A00DDD60F4FDD7E009167FE1FD254D23A02DDD6 

110 DATA 0E4FDD7E02916FFE1FD254D23E01DD7 
704D5544A5D26006A292929292929 1 600 1 9 1 9 1 1 

111 DATA 00C0195E2356EBD17CD606123204DD1 
37DD606 1 23205DD 1 379CB3FCB3FCB3F8787 1213 

112 DATA 13D5DD5600DD5E02EBD1CD80D2B7286 
6FE6D2862D52 1 4000 1 9C53A04DD573A05DD5F06 

113 DATA 03CD46D4CB2FCB2FCB2FCB2F8257772 
3CD46D4CB2FCB2FCB2FCB2F835F772378C60487 

114 DATA 877723231 0D8C1 D 1 DD7E01CB2FED44D 
D7701DD7E03CB2FED44DD770321A3D4CD59D4DD 

115 DATA 350520093E02DD770421FFCF343A02D 
D3C3CDD9602FE05302E3A00DD3C3CDD9600FE05 

116 DATA 3022DD4E013A01DD87DD7701793201D 
DDD4E033A03DD87DD7703793203DD21B1D4CD59 

117 DATA D4DD23DD23DD23DD23DD23DD2305C2D 
0D02 1 00CF 1 1 04FA0 1 7B00CD5C00E 1 FBC9B93805 

118 DATA 28063E01C93EFFC9AFC97CE6C0F6010 
707D3993E8ED3997DD3997CE63FD3990000DB98 

119 DATA C9087CE6C00707D3993E8ED3997DD39 
97CE63FF640D39908D398C9F1C3B9D2002BCD66 

120 DATA 46FE41CA0CD0FE42CA6AD4FE43CA8CD 
4FE45CAD8D2FE46CA9ED323C923CD2F54EB22AF 

121 DATA DDEB23CD2F54EB22B1DDEB23CD644CE 
5CDD067237E5F237E57EB1107DD010B00EDB021 

122 DATA 06DD3600061A21 1 2DD3600231 0FB0E0 
F1 I06DDCD7DF3B728080E161 1 06DDCD7DF30E1 3 

123 DATA 1 106DDCD7DF30E161 1 06DDCD7DF3B7C 
279D30E 1 A1 1 2BDDCD7DF3F30E002 1 2BDD22ADDD 

124 DATA 2AAFDD3AB2DD47CD7401571E00231C7 
BB72806CD7401BA28F4CD7BD37CB838E71 106DD 

125 DATA 0E15CD7DF30E101 106DDCD7DF3FBE1C 
9E52AADDD722373230C0C79FE80200F0E 1 5 1 1 06 

126 DATA DDC5CD7DF3C1212BDD0E0022ADDDE1C 
923CD2F54EB22AFDDEB23CD2F54EB22B1DDEB23 

127 DATA CD644CE5CDD067237E5F237E57EB110 
7DD0I0B00EDB02106DD3600061A21 1 2DD360023 

128 DATA 10FB0E0F1 1 06DDCD7DF3B72803C379D 
30E1A1 12BDDCD7DF3F32AAFDDCD7101 1 1 06DD0E 

129 DATA 14CD7DF30E00212BDD22ADDDCD1FD4B 
7C2 1 3D4437AD398 1 0FCC303D40E 1011 06DDCD7D 

130 DATA F3FBC379D3E52AADDD56235E230C0C7 
9FE803E00201 1D50E141 I 06DDC5CD7DF3C1D1 21 

131 DATA 2BDD0E0022ADDDE1C9C5ED4B57D4ED5 
F8 1 804847ED4357D4C 1 C9AA55D5C5060E5E3E0E 

132 DATA 90CD93002310F6C1D1C923CD1C52E52 
6082E00CD80D2BB2005EE6DCD77013E04856F30 

133 DATA EF3E04846730E7E1C9E5CD5601E123C 
900FF0 1 FF0 1 0001 01 000 1 FF0 1 FF00FFFF0000FF 

134 DATA FF80800800101010002001000040408 
0800038 1 1 1 000 1 80 1 000000000000 10011 000 

135 DATA 000011 




10 REM ******************************** 
20 REM * * 

30 REM * FOR BASIC COMPILER * 

40 REM * [ GAIERS ) BY H. SAWADA * 
50 REM * * 

60 REM ******************************** 
70 ' SATRT 



110 



J SCREEN!, 2:WIDTH30:COLOR15, 0, 0:KEYOFF 
90 _TURBO ON 
100 DEFINTA-Z 

110 DIM MV(8), PA (14), MS (3) , MX (3) . MY (3) , M 
W(3). TX(14). TY(14). TM(14), TC(14), TH(14), 
ST(17).CL (14). TW(14). TZ(14) 
120 FORI=256T0983:A=VPEEK(I) :VPOKE I,A¥2 

OR A: NEXT I : A=RND (-TIME) 
130 SOUND7, 181 : SOUND 1 1. 0: SOUND 12. 10:SOUN 
D8, 16: SOUND9. : SOUND 1 0. 
140 HS= 1 00 : FORI =1T08: READ MV(I):NEXT I:F 
ORI=1T014:READ PA(I):NEXT I : FORI=0TO1 7: R 
EAD ST (I) :NEXT I 

150 FORI=0TO15:B$="":READA$:FORJ=0TO3I :V 
POKE14336+I*32+J. VAL ("&H"+MID$ (A$, J*2+1. 
2)) :NEXT J, I 

160 ' TITLE 

170 LOCATE10, 6:PRINT" [ GAIERS l":LOCATE9 
. 13:A$=STR$ (HS) :A$=RIGHT$ (A$. LEN (A$) -1) : 
A$=RIGHT$ ("0000"+A$. 5) +"00" :PRINT "Top: 
":A$:LOCATE6. 20 : PRINT"PUSH (SPACE) KEY ! 

180 FORI=0TO1 :I=-STRIG(0)-STRIG(1) :NEXT 

I:CLS 

190 X=l 14:Y=174:P1=0:P2=0:CT=0:SC=0:LF=4 

:IF STICK (0) +STICK (1) =0 THEN ST=0 

200 TH(10) =ST*100+100 

210 X=1 I4:Y=174:GOSUB920:FORI=0TO10:TM(I 

) =0:NEXTI:FORI=0TO3:MS(I)=0:NEXTI:FORI=1 

T031 :PUTSPRITEI. . 0:NEXT I 

220 ' MY MOVE 

230 S=STICK(0)+STICK(1) :A=ST(S) :X=X+A+A+ 

A+A:IF X<1 THEN X=0 ELSE IF X>238 THEN X 

=239 

240 A=ST(S+9) :Y=Y+A+A+A+A:IF Y<32 THEN Y 

=32 ELSE IF Y>174 THEN Y=174 

250 PUTSPRITE0. (X. Y) . 1 5 

260 ' MISSILE 

270 IF STRIG(0) +STRIGO) THEN FORI=0TO1+ 
P2/2:IF MS (I) THEN NEXT I ELSE MS (I) = (I 
MOD 2) *4+l :MX(I) =X:MY (I) =Y: PUTSPRITE1 +1. 
(X. Y). 10-P1*4. 1+P1 :I=4:NEXT I 
280 FORI=0TO3:IF MS(I)=0 THEN FORJ=0TO25 
: NEXT J. I:GOTO320 

290 MY(I)=MY(I)-16:MX(I)=MX(I) +MV(MS(I)) 
*(P1=2) :IF MY(I)<0 THEN PUTSPRITE1 + 1. , 0: 
MS(I)=0:NEXT I ELSE PUTSPRITE1 +1. (MX (I), 
MY(I)). 10-P1-P1-P1-P1. 1+P1 
300 MS (I) =MS (I) +1 : IF MS (I) =8 THEN MS (I) = 
1 :NEXT I ELSE NEXT I 

310 ' ENEMY MOVE 

320 FORI=0TO10: IF TM(I)=0 THEN FORK=0TO1 

0:NEXT K, I:GOTO400 ELSE IF TC(I) THEN PU 

TSPRITE5+I. . TC(I)'-1, 1 1 :TC (I) =TC (I) -1 : IF 

TC(I)=0 THEN A=RND(1) *5: IF A=1 THEN A=RN 

D(l) *3:TM(I) =12+A:CL(I)=10-A-A-A-A ELSE 

TM(I) = 0:ON - (CT<1001) GOSUB1010 

330 H=l 6: IF TC(I) OR TM(I)=0 THEN 360 EL 

SE ON TM(I) GOSUB 470,490.510,530.550,57 

0, 600, 620, 680, 700, 720:TX(I) =TX(I) +TW(I) : 

TY(I)=TY(I)+TZ(I) 

340 PUTSPRITE5+I, (TX ( I) . TY (I) ) . CL H) . PA ( 

TM(D) :IF ST=4 AND 1=10 THEN PUTSPRITE15 

, (TX(I).TY(D). 15. 12:PUTSPRITE16. (TX(10) 

+ 16. TY (I) ) , 15. 13:PUTSPRITE17, (TX(10). TY ( 

I) +16). 14. 14:PUTSPRITE18, (TX (1 0) + 1 6. TY (I 

)+16). 14, 15 

350 IF TY (I) >199 OR TY(I)<0 OR TX(I)<0 

R TX(I)>240 THEN TM (I) =0 : PUTSPRITE5+ I. . 

360 A=H¥2:IF TC(I)>0 OR TM(I)>10 THEN 40 

ELSE FORJ=0TO3:IF MS (J) =0 THEN 390 
370 IF ABS(MX(J)+8-TX(I) -H¥2) <H THEN IF 
ABS(MY(J) +8-TY(I)-H¥2)<H THEN TH(I)=TH(I 
) -P2-1 :GOSUB990:IF P1<>1 THEN MS(J)=0:PU 
TSPRITE1+J, . 

380 IF TH(I)<1 AND TM(I) THEN A=31 : GOSUB 
980:TC(I) =15:SC=SC+ST+1 :GOSUB930: IF 1 = 10 

THEN 1=1 6: NEXT I:GOTO740 
390 NEXT J 

400 IF ABS(X+8-TX(I) -H¥2)<(H-1) THEN IF 
ABS(Y+8-TY(I)-H¥2) <(H-1) THEN IF TM(I) >1 

1 THEN P1=TM(I)-12:TM(I) =0 : PUTSPRITE5+I. 
.0:IF P3=P1 THEN P2=P2- (P2<4) ELSE P3=P1 



ELSE IF TM(I) AND TC(I)=0 THEN 870 
410 NEXT I 

420 CT=CT-(CT<1002) :IF CT MOD 4=0 THEN G 
OSUB1010:GOTO230 ELSE IF CT=1001 THEN 44 
ELSE 230 

430 ' BOSS 

440 TC(10)=0:TH(10) =ST*50+1 00: TM (10) =6+S 
T:TX(10)=120+ (ST=4) *8 : TY (1 0) =0 : TW (1 0) =2 : 
TZ(10) =2:CL(10) =1 5 : FORI=0TO9 :TC (I) =1 5:NE 
XT I : IF ST<4 THEN FORI= I TOI 5: PUTSPRITE1 5 
. (TX ( 1 0) . 0) . I . PA (TM ( 1 0) ) : FOR J=0TO2500 : NE 
XTJ. I:GOTO230 

450 FORI=0TO15:PUTSPRITE15, (TX (1 0) , 0) . I. 
12:PUTSPRITE16. (TX (1 0) +1 6. 0) . I, 13:PUTSPR 
ITE17. (TX(10), 16). I, 14:PUTSPRITE18. (TX(1 
0)+16, 16), I, 15:FORJ=0TO2500:NEXTJ. I: GOTO 
230 

460 • ENEMY1 SUB 

470 IF TW(I) THEN RETURN ELSE IF ABS (TY ( 
I) -Y-8) <1 6 THEN A=SGN (X-TX (I) ) :TW(I)=A+A 
:TZ (I) =0:RETURN ELSE RETURN 

480 " ENEMY2 SUB 

490 B=6:GOSUB800:IF TZ(I) THEN RETURN EL 
SE IF ABS(TX(I) -X)<16 THEN A=SGN (Y-TY (I) 
) :TZ(I)=A+A:TW(I) =0:RETURN ELSE RETURN 

500 ' ENEMY3 SUB 

510 IF TY (I) =120 THEN TW (I) =RND (1 ) *1 6-8 : 
RETURN ELSE RETURN 

520 ' ENEMY4 SUB 

530 B = 6:GOSUB800:TW(I) =SGN (X+8-TX (I) ) *2 : 
TZ(I)=SGN(Y-TY(I)) *2: RETURN 

540 • ENEMY5 SUB 

550 TW(I) =RND(1)*5-2:TZ(I)=4:RETURN 

560 ' BOSS1 SUB 

570 B=0:GOSUB800:TZ(I)=0:IF TX(I)=0 THEN 

TW(I)=2 ELSE IF TX(I)=240 THEN TW(I)=-2 
580 RETURN 

590 ' BOSS2 SUB 

600 GOSUB570:IF TX(I) MOD 10=0 THEN F=l: 
GOSUB1 010: RETURN ELSE RETURN 

610 ' B0SS3 SUB 

620 IF (TX(I) MOD 64=0) OR (TY(I) MOD 64 
=0) THEN A=RND(1)*6-3:B=RND(1) *6-3:TW(I) 
=A:TZ(I) =B:IF (TW(I) MOD 2) OR (TZ(I) MO 
D 2) OR (TW(I)=0 AND TZ(I)=0) THEN 620 
630 B=4:GOSUB800:IF TX(I) MOD 8=0 THEN F 
=RND(0* (- (ST=4) *5) +1-(ST<4) :GOSUB1010 
640 IF TX(I)<2 THEN TW(I)=2 ELSE IF TX(I 
)>222 THEN TW(I) =-2 

650 IF TY(I)<2 THEN TZ(I)=2 ELSE IF TY(I 
)>160 THEN TZ(I)=-2 
660 RETURN 

670 " BOSS4 SUB 

680 B=5:GOSUB800: IF TX(I) MOD 32=0 THEN 
F=4:GOSUB1010:GOTO640 ELSE 640 

690 " BOSS5 SUB 

700 H=32:GOTO620 

710 ' ENEMY MISSILE 

720 H=8: RETURN 

730 ' STAGE CLEAR 

740 LF = LF+1 :FORI = 15T031 :PUTSPRITEI. . 0:NE 

XT I 

750 A=TX(10) -(ST=4)*16:B=TY(10)-(ST=4)*1 

6:FORI = 15T018:PUTSPRITEI. , 0:NEXT I :GOSUB 

960 

760 FORI=0TO3I :PUTSPRITEI, . 0:NEXT I : LOCA 

TE 9. 10:PRINT "Stage clear !" :SC=SC+ST*1 

0+ I 00 : GOSUB920 : FOR I =0TO30000 : NEXT I : CLS : 

ST=ST+1 :CT=0:IF ST<5 THEN 200 

770 ' ENDING 

780 CLS:GOSUB920:LOCATE7. 5:PRINT "Congra 
tulat'ions !": LOCATE2. 20: PRINT "1992 Prog 
ramed By H. Sawada" :FORI=0TO30000:NEXTI : F 
ORI=0TO1 : I=-STRIG(0) -STRIG(l) :NEXT I :ST= 
0:LF=-1 :GOTO890 

790 " EN_MISSILE SET 

800 A=RND (1) *10:IF A<>1 THEN RETURN 

810 FORJ=B T09:IF TM (J) THEN NEXT J:RETU 

RN 

820 TM (J) =1 1 :A=X-TX(I) :B=Y-TY(I) :C=(ABS( 

A) +ABS (B) ) ¥5:C=C-(C=0) 

830 TW(J) =A¥C:TZ(J) =B¥C: IF TW(J)=0 AND T 

Z(J)=0 THEN TW(J)=TW(J) +1 :TZ (J) =TZ (J) +1 



840 TX(J)=TX(I)+6:TY(J)=TY(I)+6:TC(J)=0: 

CL (J) =10 

850 J= 10: NEXT J: RETURN 

860 ' MISS & GAME OVER 

870 A=18:GOSUB980:P1=0:P2=P2+ (P2>0) : IF C 

T=1002 THEN CT=1000 

880 PUTSPRITE0. , 0: A=X: B=Y:GOSUB960: LF=LF 

-1 :IF LF=>0 THEN 210 

890 IF HS<SC THEN HS=SC 

900 FORI=0TO31 :PUTSPRITEI. . 0:NEXT I : LOCA 

TE8. 10:PRINT"* Game Over *" :FORI=0TO327 

66:NEXT I :CLS: LF=0 :GOSUB920 :GOT01 70 

910 " SCORE PRINT SUB 

920 LOCATE0. 0:PRINT"Score 10000000 Left: 

Stage:": LOCATE 19. 0: PRINTLF: LOCATE28. 0: 
PRINTST+1 

930 IF S0 10000 THEN SC= 10000 
940 A$=STR$ (SC) :A$=RIGHT$(A$. LEN (AS) -1) : 
A$ = RIGHT$ ("0000"+A$, 5) :LOCATE6, 0: PRINT A 
$: RETURN 

950 ' BOMB SUB 

960 FORI=l 1T014:TX(I) =A:TY(I) =B:NEXT I:F 
ORI =0TO31 : FORJ=2T08STEP2 : A= 1 0+ J¥2 : PUTSPR 
ITE18+J¥2. (TX(A). TY (A) ) , 15- I ¥2. 11 : TX (A) = 
TX (A) +ST (J) : TY (A) =TY (A) +ST ( J+9) : FORK=0TO 
100: NEXT K. J, I : RETURN 

970 " SOUND SUB 

980 SOUND8. I 6: SOUND9. 0:SOUND6. A:SOUND1 3, 
0: RETURN 

990 SOUND8, 0:SOUND9, 16:SOUND2. 10:SOUND3. 
0: SOUND 13. 0: RETURN 

1000 ' ENEMY SET 

1010 IF CTO002 THEN F=RND (1 ) * (ST+1 ) + 1 
1020 FORL=0TO5:IF TM(L) THEN NEXT L:RETU 
RN ELSE TM(L)=F:TC(L)=0:TX(L)=RND(1) *240 
:TY(L) =0:TH(L)=ST+1 :CL (L) =TM (L) *2+l 
1030 ON TM(L) GOSUB 1050. 1060, 1070. 1080. 
1090:L=16:NEXT L 
1040 RETURN 

1050 TW(L)=0:TZ(L) =2: RETURN : 'ENEMY! 
1060 TX(L) = (L MOD 2) *240 :TY (L) =L*24 : TZ (L 
)=0:IF L MOD 2=0 THEN TW (L) =2 : RETURN ELS 
E TW(L) =-2:RETURN :"ENEMY2 

1070 TW(L)=0:TZ(L) =4: RETURN : " ENEMY3 

1 080 TH (L) =3+ST : TY (L) =0 : RETURN : ' ENEMY4 
1090 TZ(L) =8: RETURN :"ENEMY5 
1 100 ' DATAS 

1110 DATA 1 6. 8, -8, - 1 6, - 1 6, -8, 8, 1 6 

1 1 20 DATA 5. 6, 7. 8. 9, 6, 5. 9. 8, 1 2. 1 0. 4. 4. 4 

1 1 30 DATA 0. 0. 1 . 1 . 1 . 0. - 1 . - 1 , - 1 . 0. - 1 . - 1 , 

. 1. I. 1. 0, -1 

1140 DATA 01 01 01 02030303252607 2AACA8AACB 



1150 DATA 101030303030303030303020102010 

2010181818181818181818180810081008 

1160 DATA 207070707070707070707070707070 

20081 CI CI CI CI CI CI CI CI CI CI CI CI CI C08 

1170 DATA 030FIF3F7C70E0C0C0808080000000 

00C0F0F8FC3E0E0703030 101 01 00000000 

1180 DATA 030C132F5F58BDBDBCBD5D582F130C 

03C030C8F4FA3ADDDD3DFDFAFAF4C830C0 

1190 DATA 1 1252B5B5556B5BAB4A5A145412101 

01 1 048A8B454D45ABA5A4A0A4404080000 

1200 DATA 030766D9B47669553A1C05337B3850 

00C0E0661B2D6E8AA476ECD08C1E1C0A00 

1210 DATA 91 41 55B5B996951 5031 60503030201 

01 1 204545A3AD2525080D0408080800000 

1220 DATA 030C1 1 2A53439DBEAE9D43532B1 10C 

03C03088D4CAC2B9757DB9C2CA548830C0 

1230 DATA 90CBCD56555B5A590B4B410B430302 

01 I2A666D454B4B434A0A404A084808000 

1240 DATA 



1250 DATA 030F1F3F7F7FFFFFFFFF7F7F3F1F0F 

03C0F0F8FCFEFEFFFFFFFFFEFEFCF8F0C0 

1260 DATA 8041 1 B372D1 B367DBBD7EFAFAEEFEB 

AEFF6EBFC0BF79FF76AFDFA76FDCFBF7F7 

1270 DATA FF76FD03FD9EFF6EF5FBE5F63BDFEF 

EF0 1 82D86CB4F86CB6DDEBF7F575F7D775 

1280 DATA AEEBEFAEAFEFD7BA7D361B2D371B41 

80F7F7FBDC4FB75FEFF6FF79BFC0BF6EFF 

1290 DATA AF6FDF3BF0EDFAF76FFF9EFD03FD76 

FF75D7F775F5F7EB1DB66CF8B46CD88201 



111 



I // 



MSX turbo R 



"7U1z>N 
SIOffE-^-i 




lE«fr£ofcfcIEE16J5yifcH<D?bt2>h , ett* fc 



Panasonic 


FS-A1GT 


ftBJR 

Sam 


taau 


J£»S|3 


&IUK& 


BIT 2 


/*-SIOS 




#81 


mbka 


itsa 


UJ*B- 



MVflflWBOX 



ga» SJriiH* 

«« BASICCDJSMPartS 

Will II aiuins 

MSXSft 

?§S!S SEWS 
35«!1 fflLU§fi£ 
KSC8J JI|»Stt 

mam smm- 
mnm *m&n 

^bs® tawt- 
^mh ew si 
mwtm mmm 



U.S.A. G.R.Jacobson 
'Mtt -flf— KU-f r ¥ffi£©&U j 

ttS£ tSJUf 

es* 'J^tau 

mmm nmmm 
sum mx^m 

AIffl*g5A/*5<K 

fckffl« £*££ 
igffifl £*«ffl!ft 

Sam Jlffl 55? 

mmm mwm 
wsjui mnm- 
wsjiii wg ® 



NIKCT 



upturn 



T-a^T-ia>16*§ 



g#M3 SJH ffl 

SJt38!SI ^LUDEIfc 



&H!JR »lil*51fi 
flU*!!* ^EB 50 



mi Jiimz: 




«HW JHffl3§t£ 

nm teluih- 



SMi it ff^ 



V-WTV 



"&-o imwM 



T47£7>T-*J3 S A]% 



*mm mm n 

■AM P^S ffi 



'-xmm mwm— 
mm m*mm 
mm m&mm 



■mmm mmmwi 
=rmm m H¥ 
&mm *ttm&. 




mmm mTiEm 

m ^m^mx. 
\\m ±m^m 



imm 


fil2£ M 


mum 


n^^im 


mmm 


mmm®. 


m%im 


nm&ft 


mmm 


mnm=3- 



v-wyy 



W)\s73y*\/0\5 



itmm mm m 
mmm ^p^iSA 

=fmm w tztHP 




mm ttwmm 
mm *.mm± 
whim Mums 

m wmm? 
m ftmmu 



tzmm ^mmm 



\&fwrtn*-?=j> 



\i-3-TyJ3~; 



m?M mmytm 
mnm M mm 
fe#m i±#-ti3 



m*m sm&fc 

=pmm lu^ % 

mtnm ^n m 

mmm 'N\\ : ma 



fPIBM'fJWm 



&vj«jOj>'i\A?rj 



&j&hr7**$Sv)\> 



\d-Z-Ty-J4* 



mmm ammu 

m^m raffl m 

m^m cptmm 

m^.m sea m 



mmm *mm.2. 
mmm m^^.m 
:^mm m man 
mmm %mm 
mmm m %m 



imm pffliA 
m^.m mm=n 
mnm is®, m 

£11 UJ^fQ^ 









wsj ill a^^M^ 
mmm imnm 
mnm m^-m-x 



112 



B7D95IX!HDMMmMm 



r MSXv#v> 4 ^-§-7°P ^7A 
+>— tXi (ix 3 £ 7 S(Z^:11<7) 
TAKERUlSR^T^ $ ftS ^/§ 

"C, FS-A1GT(7)$£3IBASIC£-f£o7z 

•So FM^igOTMMLx— ? SrMIDI^ 
iSE^T*-* Hig&r S "7°P ^7 
AIZ N +t->y^ft?rRS l b1"^ > P^' 
7A V ^LTMIDI&BGMCls^/i 

yp^7A(iFS-A1GT*\ FS-A1 

ski "> • pack j £#_&<&•-£-& tz&m 

r A23PtHA,*><ISj«, **^ 



MSXtZ|S^«*>£I£ j e'b-£T<& 

tv.**„ -<7)yp^*7Ais s m 

(P>?7 7 -f -y ? t-*-^ %■ 2 tfeffo® 

fctf> b *sz 2 *fe g coUff^ £ £B 

* «fc o TJjiMfcro L *>»<:: 

S $ Z (2*KC U £ LASfcf^ o 
*fc^^(iy?u f ?czv7P> 

y\JtfE& r LASERS j£4X§i L T I ^ 
So if(7)(5A\ ©Etlffllff^'y* 
-5t^C7)>7-*-A N -C*<7)3>-r 
*K7>AigflF2;k fLTva- 
h^P^7 A<7) AigffcS 3 * fe * 

S**o 



TAKERUn 

r MSXV^y> 4 E*§?d^A 
+f-t!XjlS, TAKERUlcrfg 
^*o ffli*li8000H[f«a]fc*o S 

§i*«i$A¥pj^fc-o mm*. '90 

30oora[«&u *ur ^uo^> 
Att-tf^j c«fs«)*a*3ofc , gi 
^5^^w» A^ooon i»a] t. & 
oruSo 
ssaa u«MDy v° v 3 > v z? s 

SBiS^L TAKERU*f*\ § 



iA?3f£ 

cfc5^o-a-TAKERUV-» 

©iimqifc±^©cfc3rt:U £<© 
»TE£rHiusfrt*rtto 



= 467 

TAKERUPiSJi 
a 052-824-2493 




Hftg MSX2(VRAM128K)m® 

l^x-T7 3.5-T>^SDD 

Hffite 2ooon[^iA] 



(2/eX^'®©'SX^-8<£'eX^X^)e'ee'«^^ 




isflm^&^iiaii?$ u&&m£mzAffl 



-To ^-fn<7)*&t)3asKi-9— f 

A+t— t^A^OOORRftA], r'-r 
^ * iifi*«3000R Hfc&] £ tt -3 

£(7>0!k7>«J: -7 H'J^*Il£EAL 
X<tz£l\ Z<nt&&. 5o^LiA 

frfrb fa&cnmm Z X- 2 iiHS e* 



££;%£&, ^-TFtzSitLfcJ: 

*>\ jft B B p*^iWfrssT(z, fi^ 
(7)*a^ti i n^bios, ^#7> 



T 107-24 
9GSa«iEffilt HI 6-11-1 

O03-3486-71 14 







£ 


JA 




' 






-<- 


A 




■"'. 










M 


4 


f : » 


i 


a ; * 


• 


* 

a 


« : » : « 


• : * : » 


r. 


* 


,'i 


■■:, 
1 


lie 


i 


I 


4- 


4- 


' 




Ivk 











1 


to-fe^T^^- 


■i 


R 


n 

* 

R 
C 


4i cU X- B? 


* 




* 
i' 
M 




8 
< 


I»- EDI 


10 


u.ii 


Al 


.». 


- 


Tt 


• 


Lt 











*t;Mi!fett£.;ifr3:MM 



***■ 



EB»a*HlELft»ftli. *OTBSiuITiEai*)fLT<ft - *i.>„ 
:«ffl«8. ««T«jaLJT<"T»i')»lf<(i.'J:-5i:LT<ft- 



life 



I' 4ft 



****7x*- 



OjOiO 



b-i l -V 



^X«liaKLT( lit 



>m&mm£»»\&wtt uatas^y ^cd« 










Snail. •«T«»L*T«T 
aitSC*E«Lft'). SLft'l L 



»fififflS7A-SS. 



is^ro SttSr©«^i*gBS : S*r»ur<^:tsUo 



113 



EDITORIAL 





-UogjOturboRWiiKHfi^Sg^ICA 
95k&- EXEfeWIUrUMCDfcfll 



magazine 



STAFF 



MMA ■ 



s» : ,m 

■sjh s *ffl x* 



;t*¥w^ «*s a^ 

** *¥l SlU jS* 

«^^77 3E# «* 'J^LU «^f 

SUE iff* *i 

7t^77 t-m A± A*iS^g 

a*®* sh *- 'N* fc 

^m #je ^ffl e» 

« *q^ $■§• ## 

sun w* =m && 

mm w® ujtc fe 

«Sflrt62) -»# Ift* a*5>*B4 

CYGNUS *JI| i£;£ 

Sift £2. ^ffl A^r 

3M£ «- it ?§?a 

sjii ¥# *J\ft #*f 

I?* SJN 4ft A* 

/a#^« *^0J i»- $Jii JE« 

*J«3£3£ 9J3f S- ff)& #^ 

T> y*S* h A • v> KA-7 

< ?X i- ** i^ stt £*B 

SJH itfig it&-t Wf 



S# *Cl 



«HTte 



5?FPg» 



S03-3796-1919 

77J- yr'j.-fcn'tffg&^LTfcMS-ro * 

Mttx tt» »B*l»<s »a*ftB>!r "•»*"■ B 
<7>*F&2B$frib 4B|£T!::j>fguW;LST ; . 



5Mtt4E8QAMZ550n 



>&fccfc>3©3Dr5£ =r 107-84 ^mtR? 



WIH6-11-1 XU-x^m«lUe;U (HO:?**- MSXV#$;>*Bf6g& r OOOj ^ 



xother 



<V3>V7heftS« 




TAKERU 







SORCERIAN SYSTEM SCENARIO Vol.3 



r wav-ttU7>jca< % ««s/^u^ 



orcenan 



K559K V-»'J7> 








f SCB, r V— y-U7Vj(¥6.B00 
TAKERUrSME*) tf&Brr. 

* r waav— t*-y7>j(¥4.80D) =&» 



isnfEWtrozr-To 



IS3.5001 

■tifftMl : MSX2 UfeM/Mff : f-f-A/vfh 



s^Kv--y-U3 7 >-«8fflv— y-U7> i*v~yvwt\*j'T-y %7&#m 



^KjfmtSj 2o©iiJP^7- | j7r^Aor7.B00 

-SflRWHB / ±@r3 , 000* Ltfr&UttM 
S/4J320BrtM#M<Z)fE^B/£l;:fr<PU : & 
©885 fc* / BBWUDBttiW >*o 



■rriz r isv--9- | j7>j^ior<nfcg^ 



KA^S3o r lfiBV-itU7>j £HU±l:fiIlq]£ftf) 
JL»«BB©»'e**to£ r fc!5£* Kj tf3,000P3($ 
&)'Cg;L5*oCD£/ : feS-3AA •hvlVyVIVj'T 

TAKERU&0£/ 



4E80aTAKERU#S3.500P3(fft 
* Ur tf y£ ij / r\±=? = «, K V— tf 

ZS6B3.B00R(«S!))*:/ 3£>£5 



T467 «,£«mi*fEBrt»72#l^ 



TAKERU*J^ 
(052)824-2493 



«$S«f*t(03>3274-69I6 
*SKS«« (06)252-4234 




FS-JM1-H 

**ffi»7,8OOP3(«tf0: 



i . ,?.■. .aT j !■'-'' ™ ■ . i 



FS-A1GT 1199,8 

M6g'yhCPU(R800)ttK»MSX-DOS2»«»«tt»Stt<l^ ^ 

TTo«MS-D0S®li#S?^ny7htt<ngSiig#/r^^ *B5tffr"l fifty PI* 1006 «T«**«(W'7-7'a»«»1!tliaMXffi*T„ 

■MmtztKmm— Human Electronics &Tnmmmft&&ft 



1 7 

9 1 

1 

3 1 



ft 

m 



Printed in japan *B*EP8i)(«S) 



T1 01 2081 040553 HSI 12081-04 



